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14.  Abstract  (Umie  200  worn) 

•  This  is  a  report  on  measurement  and  analysis  of  velocity  profiles  in  bounded  shear 
flows  in  a  laboratory  flume  with  various  flow  intensities  and  depths  and  two  very 
different  roughness  magnitudes  and  t3rpes . 

A  new  computational  procedure  was  developed  to  define  a  virtual  origin  and 
successfully  applied  as  part  of  a  larger  program  named  VELMEAS;  this  computational  program 
was  developed  in  the  course  of  this  research  as  an  accurate  and  expandable  tool  for 
analyzing  boundary  layer  flows;  it  is  also  suitable  for  collecting  and  analyzing  any  set 
of  data  samples  produced  in  voltage  form.  Basic  statistical  andnregression  analysis  are 
performed  efficiently,  and  the  boundary  layer  analysis  is  documented  in  graphic  and  table 
form.  Many  graphs  illustrating  boundary  layer  phenomena  are  included  in  this  report. 
The  source  FORTRAN  code  is  also  included. 

The  virtual -origin  search  reveals  the  relative  thickness  of  the  logarithmic  and 
wake-regions.  The  magnitude  of  various  relevant  parameters,  including  the  Karman 
coefficient,  the  intercept  and  the  wake  strength  coefficient,  is  computed  as  functions 
of  different  virtual  origin  estimates.  The  procedure  would  give  better  results  with  more 
sophisticated  instrumentation  than  the  simple  total  head  tube  used  in  this  study. 
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ABSTRACT 


This  is  a  report  on  measurement  and  analysis  of  velocity  profiles  in  bounded 
shear  flows  in  a  laboratory  flume  with  various  flow  intensities  and  depths 
and  two  very  different  roughness  magnitudes  and  types. 

A  new  computational  procedure  was  developed  to  define  a  virtual  origin  and 
succesfully  applied  as  part  of  a  larger  program  named  VELMEAS ;  this 
computational  program  was  developed  in  the  course  of  this  research  as  an 
accurate  and  expandable  tool  for  analizing  boundary  layer  flows;  it  is  also 
suitable  for  collecting  and  analyzing  any  set  of  data  samples  produced  in 
voltage  form.  Basic  statistical  and  regression  analysis  are  performed 
efficiently,  and  the  boundary  layer  analysis  is  documented  in  graphic  and 
table  form.  Many  graphs  illustrating  boundary  layer  phenomena  are  included 
in  this  report.     The  source  FORTRAN  code  is  also  included. 

The  virtxial- origin  search  reveals  the  relative  thickness  of  the  logarithmic 
and  wake - regions .  The  magnitude  of  various  relevant  parameters,  including 
the  Karman  coefficient,  the  intercept  and  the  wake  strength  coefficient,  is 
computed  as  functions  of  different  virtual  origin  estimates.  The  procedure 
would  give  better  results  with  more  sophisticated  instrumentation  than  the 
simple  total  head  tube  used  in  this  study. 


iii 


TABLE  OF  COHTENTS 


Page 

List  of  Tables   vi 

List  of  Figures   vii 

Chapter 

1  Brief  on  research  done   1 

1 . 1  Ob  j  ectives   1 

1.2  The  Laboratory  Flume   4 

1.3  The  Program  VELMEAS   10 

1.4  Data  acquisition  and  Statistical  Analysis   11 

1.5  Bovtndary- Layer  Analysis   12 

1.6  Conclusions  and  Recomendations   14 

2  Theory  and  methods  used  in  the  analysis   15 

2.1  Introduction   15 

2.2  Statistical  Methods   16 

2.3  Correlation  Methods   20 

2.4  The  law  of  the  wall  and  the  law  of  the  wake   22 

2.5  Dimensionless -variables  equations   29 

2.6  Virtual  origin   31 

2.7  Bottom-  and  Wall-correction  methods   39 

2.8  Channel  Resistance   43 

3  Measurements  and  automated  analysis  results   45 

3.1  Survey  of  conducted  experiments   45 

3.2  Analysis  of  results   50 


iv 


Page 


4  Description  of  the  Program  VELMEAS  developed   154 

4.1  General   154 

4.2  Portability   155 

4.3  The  Main  Program   156 

4.4  Data  Acquisition   157 

4.5  Statistical  Analyses   158 

4.6  Regression  Analyses   159 

4.7  Boundary  Layer  Analyses   160 

4.8  Plotting  Routines   166 

4.9  Example  of  FN12  during  data  acquisition 

and  Statistical  Analyses   171 

4.10  Example  of  FN12  after  Boundary  Layer  Analyses   182 

5  Program  VELMEAS  User  Manual   203 

5.1  Program  Operation   203 

5.2  The  Main  Menu   206 

5.3  Options  1,2  and  3   207 

5.4  Option  4   212 

5.5  Options  5  and  6   214 

5.6  Option  7   220 

5.7  Options  8  and  9   222 

References   224 

Appendix 

A  Program  VELMEAS  Source  Code   A-1 

B  Operating  System's  Execution  files   B-1 

C  Operator's  Form  used   C-1 

D  Data  for  wall -correction  procedure   D-1 


V 


V 


LIST  OF  TABLES 


Table  Page 

3.1  :  Survey  of  experiments   47 

3.1  :  Survey  of  experiments  (continued)   48 

3.1  :  Survey  of  experiments  (continued)   49 

5.1  :  Disk  Files  used  by  the  program  in  two  different  computers   204 


vi 


LIST  OF  FIGURES 


Figure  Page 

1.1  :  The  Laboratory  Flume   4 

1.2  :  The  Positioning  device   6 

1.3  :  The  Transducer  hookup  device:  a)  Sketch,  b)  Photography   8 

1.4  :  The  Packed  bed  of  lead  balls.  Flow  is  parallel  to  the  figure   9 

1.5  :  A  plan  view  of  the  channel  bed  furnished  with  lead  balls   9 

2.1  :  A  measured  velocity  distribution   22 

2.2  :  The  boundary- layer  regions  (After  Cebeci  and  Smith,  1974)   23 

2.3  :  A  measured  fully- turbulent  law  of  the  wall  velocity  profile   25 

2.4  :  Comparison  between  a  measured  law  of  the  wake  and  that 

predicted  by  Coles'  and  Finley's  laws  (<  -  0.370)   27 

2.5  :  A  measured  velocity  defect  law   29 

2.6  :  Virtual  origin  definition  sketch   32 

2.7  :  Virtual  origin  search   36 

2.8  :  Computed  Karman  coefficient  during  virtual  origin  search   37 

2.9  :  Computed  Intercept  during  virtual  origin  search   37 

2.10  :  The  virtual  origin  as  a  function  of  search-region  thickness   38 

2.11  :  Computed  wake  strength  coefficient  during  virtual  origin  search.  38 

2.12  :  Sketch  of  definition  of  bottom-proximity  function   40 

3.1  :  Virtual -origin  search.  Case  number  17   51 

3.2  :  Virtual -origin  search.  Case  nxomber  18   52 

3.3  :  Virtxial- origin  search.  Case  number  19   57 

3.4  :  Virtual -origin  search  continued.  Case  nximber  19   58 


vii 


Figure  Page 

3.5  :  Virtual -origin  search  continued.  Case  nximber  19   59 

3.6  :  Parameter  variation  with  the  virtual -origin- search  thickness  H. 

Case  number  19.  a)  Karman  coefficient,  b)  Intercept, 

c)  Virtual  origin,  d)  Wake  strength   60 

3.7  :  Distributions  assuming  null  virtual    origin.  Case  number  19. 

a)  Velocity  Profile,  b)  Velocity-Defect  distribution 

c)  Logarithmic  law  of  the  wall,  d)  Wake  functions   61 

3.8  :  Parameter  variation  with  the  virtual -origin- search  thickness  H. 

Case  number  17.  a)  Karman  coefficient,  b)  Intercept, 

c)  Virtual  origin,  d)  Wake  strength   62 

3.9  :  Distributions  assuming  null  virtual    origin.  Case  number  17. 

a)  Velocity  Profile,  b)  Velocity-Defect  distribution 

c)  Logarithmic  law  of  the  wall,  d)  Wake  functions   63 

3.10  :  Virtual -origin  search.  Case  number  20   64 

3.11:  Distributions  assuming  null  virtual    origin.  Case  number  20. 

a)  Velocity  Profile,  b)  Velocity-Defect  distribution 

c)  Logarithmic  law  of  the  wall,  d)  Wake  functions   65 

3.12:  Parameter  variation  with  the  virtual -origin- search  thickness  H. 
Case  number  20.  a)  Karman  coefficient,  b)  Intercept, 

c)  Virtual  origin,  d)  Wake  strength   66 

3.13  :  Virtual -origin  search.  Case  number  22   67 

3.14:  Distributions  assuming  null  virtual    origin.  Case  number  22. 
a)  Velocity  Profile,  b)  Velocity-Defect  distribution 
c)  Logarithmic  law  of  the  wall,  d)  Wake  functions   68 


viii 


Figure  Page 

3.15:  Parameter  variation  with  the  virtual -origin- search  thickness  H. 
Case  number  22.  a)  Karman  coefficient,  b)  Intercept, 

c)  Virtual  origin,  d)  Wake  strength   69 

3.16  :  Virtual -origin  search.  Case  number  26   70 

3.17:  Distributions  assuming  null  virtual    origin.  Case  number  26. 
a)  Velocity  Profile,  b)  Velocity-Defect  distribution 

c)  Logarithmic  law  of  the  wall,  d)  Wake  functions   71 

3.18:  Parameter  variation  with  the  virtual -origin- search  thickness  H. 
Case  number  26.  a)  Karman  coefficient,  b)  Intercept, 

c)  Virtual  origin,  d)  Wake  strength   72 

3.19  :  Virtual -origin  search.  Case  number  34   73 

3.20:  Distributions  assiaming  null  virtual    origin.  Case  number  34. 

a)  Velocity  Profile,  b)  Velocity-Defect  distribution 

c)  Logarithmic  law  of  the  wall,  d)  Wake  functions   74 

3.21:  Parameter  variation  with  the  virtual -origin- search  thickness  H. 
Case  number  34.  a)  Karman  coefficient,  b)  Intercept, 

c)  Virtual  origin,  d)  Wake  strength   75 

3.22  :  Virtual -origin  search.  Case  number  36+7   76 

3.23:  Distributions  assuming  null  virtual    origin.  Case  number  36+7. 

a)  Velocity  Profile,  b)  Velocity-Defect  distribution 

c)  Logarithmic  law  of  the  wall,  d)  Wake  functions   77 

3.24:  Parameter  variation  with  the  virtual -origin- search  thickness  H. 
Case  number  36+7.  a)  Karman  coefficient,  b)  Intercept, 

c)  Virtual  origin,  d)  Wake  strength   78 

3.25  :  Virtual -origin  search.  Case  number  38   79 

ix 


Figure  Page 

3.26:  Distributions  assuming  null  virtual    origin.  Case  number  38. 
a)  Velocity  Profile,  b)  Velocity-Defect  distribution 
c)  Logarithmic  law  of  the  wall,  d)  Wake  functions   80 

3.27:  Parameter  variation  with  the  virtual -origin- search  thickness  H. 
Case  number  38.  a)  Karman  coefficient,  b)  Intercept, 

c)  Virtual  origin,  d)  Wake  strength   81 

3.28  :  Virtual -origin  search.  Case  number  40   82 

3.29:  Distributions  assuming  null  virtual    origin.  Case  niamber  40. 

a)  Velocity  Profile,  b)  Velocity-Defect  distribution 

c)  Logarithmic  law  of  the  wall,  d)  Wake  functions   83 

3.30:  Parameter  variation  with  the  virtual -origin- search  thickness  H. 

Case  number  40.  a)  Karman  coefficient,  b)  Intercept, 

c)  Virtual  origin,  d)  Wake  strength   84 

3.31  :  Virtual -origin  search.  Case  number  42   85 

3.32:  Distributions  assuming  null  virtual    origin.  Case  number  42. 

a)  Velocity  Profile,  b)  Velocity-Defect  distribution 

c)  Logarithmic  law  of  the  wall,  d)  Wake  functions   86 

3.33:  Parameter  variation  with  the  virtual -origin- search  thickness  H. 
Case  number  42.  a)  Karman  coefficient,  b)  Intercept, 

c)  Virtxial  origin,  d)  Wake  strength   87 

3.34  :  Virtual -origin  search.  Case  number  43   88 

3.35:  Distributions  assuming  null  virtual    origin.  Case  number  43. 
a)  Velocity  Profile,  b)  Velocity-Defect  distribution 
c)  Logarithmic  law  of  the  wall,  d)  Wake  functions   89 


X 


Figure  Page 

3.36:  Parameter  variation  with  the  virtual -origin- search  thickness  H. 
Case  niamber  43.  a)  Karman  coefficient,  b)  Intercept, 

c)  Virtual  origin,  d)  Wake  strength   90 

3.37  :  Virtual-origin  search.  Case  number  45   91 

3.38:  Distributions  assuming  null  virtual    origin.  Case  number  45, 

a)  Velocity  Profile,  b)  Velocity- Defect  distribution 

c)  Logarithmic  law  of  the  wall,  d)  Wake  functions   92 

3.39:  Parameter  variation  with  the  virtxial- origin- search  thickness  H. 
Case  nvimber  45.  a)  Karman  coefficient,  b)  Intercept, 

c)  Virtual  origin,  d)  Wake  strength   93 

3.40  :  Virtual-origin  search.  Case  number  46   94 

3.41:  Distributions  assuming  null  virtual    origin.  Case  number  46. 

a)  Velocity  Profile,  b)  Velocity-Defect  distribution 

c)  Logarithmic  law  of  the  wall,  d)  Wake  functions   95 

3.42:  Parameter  variation  with  the  virtual -origin- search  thickness  H. 
Case  number  46.  a)  Karman  coefficient,  b)  Intercept, 

c)  Virtual  origin,  d)  Wake  strength   96 

3.43  :  Virtual-origin  search.  Case  ntimber  47   97 

3.44:  Distributions  assuming  null  virtual    origin.  Case  number  47. 

a)  Velocity  Profile,  b)  Velocity-Defect  distribution 

c)  Logarithmic  law  of  the  wall,  d)  Wake  functions   98 

3.45:  Parameter  variation  with  the  virtual -origin- search  thickness  H. 
Case  number  47.  a)  Karman  coefficient,  b)  Intercept, 

c)  Virtual  origin,  d)  Wake  strength   99 

3.46  :  Virtual -origin  search.  Case  number  48   100 


xi 


Figure  Page 

3.47:  Distributions  asstuning  null  virtxial    origin.  Case  number  48. 
a)  Velocity  Profile,  b)  Velocity-Defect  distribution 

c)  Logarithmic  law  of  the  wall,  d)  Wake  functions   101 

3.48:  Parameter  variation  with  the  virtual -origin- search  thickness  H. 
Case  number  48.  a)  Karman  coefficient,  b)  Intercept, 

c)  Virtual  origin,  d)  Wake  strength   102 

3.49  :  Virtual -origin  search.  Case  number  49   103 

3.50:  Distributions  assuming  null  virtual    origin.  Case  number  49. 

a)  Velocity  Profile,  b)  Velocity-Defect  distribution 

c)  Logarithmic  law  of  the  wall,  d)  Wake  functions   104 

3.51:  Parameter  variation  with  the  virtual-origin-search  thickness  H. 
Case  number  49,  a)  Karman  coefficient,  b)  Intercept, 

c)  Virtual  origin,  d)  Wake  strength   105 

3.52  :  Virtual -origin  search.  Case  number  50   106 

3.53:  Distributions  assiiming  null  virtual    origin.  Case  number  50. 

a)  Velocity  Profile,  b)  Velocity-Defect  distribution 

c)  Logarithmic  law  of  the  wall,  d)  Wake  functions   107 

3.54:  Parameter  variation  with  the  virtual-origin-search  thickness  H. 
Case  nxamber  50.  a)  Karman  coefficient,  b)  Intercept, 

c)  Virtual  origin,  d)  Wake  strength   108 

3.55  :  Virtual -origin  search.  Case  number  51   109 

3.56:  Distributions  assuming  null  virtual    origin.  Case  number  51. 

a)  Velocity  Profile,  b)  Velocity-Defect  distribution 

c)  Logarithmic  law  of  the  wall,  d)  Wake  functions   110 


xii 


Figure  Page 

3.57:  Parameter  variation  with  the  virtual -origin- search  thickness  H. 
Case  number  51.  a)  Karman  coefficient,  b)  Intercept, 

c)  Virtual  origin,  d)  Wake  strength   Ill 

3.58  :  Virtxial- origin  search.  Case  number  52   112 

3.59:  Distributions  assuming  null  virtual    origin.  Case  number  52. 

a)  Velocity  Profile,  b)  Velocity-Defect  distribution 

c)  Logarithmic  law  of  the  wall,  d)  Wake  functions   113 

3.60:  Parameter  variation  with  the  virtual -origin- search  thickness  H. 

Case  number  52.  a)  Karman  coefficient,  b)  Intercept, 

c)  Virtual  origin,  d)  Wake  strength   114 

3.61  :  Virtual-origin  search.  Case  number  53   115 

3.62:  Distributions  assuming  null  virtual    origin.  Case  number  53. 

a)  Velocity  Profile,  b)  Velocity-Defect  distribution 

c)  Logarithmic  law  of  the  wall,  d)  Wake  functions   116 

3.63:  Parameter  variation  with  the  virtual -origin- search  thickness  H. 
Case  number  53.  a)  Karman  coefficient,  b)  Intercept, 

c)  Virtual  origin,  d)  Wake  strength   117 

3.64  :  Virtvial- origin  search.  Case  number  55   118 

3.65:  Distributions  assuming  null  virtual    origin.  Case  number  55. 

a)  Velocity  Profile,  b)  Velocity-Defect  distribution 

c)  Logarithmic  law  of  the  wall,  d)  Wake  functions   119 

3.66:  Parameter  variation  with  the  virtual -origin- search  thickness  H. 

Case  number  55.  a)  Karman  coefficient,  b)  Intercept, 

c)  Virtual  origin,  d)  Wake  strength   120 

3.67  :  Virtxial -origin  search.  Case  number  57   121 


xiii 


Figure  Page 

3.68:  Distributions  assximing  null  virtual    origin.  Case  number  57. 
a)  Velocity  Profile,  b)  Velocity-Defect  distribution 
c)  Logarithmic  law  of  the  wall,  d)  Wake  functions   122 

3.69:  Parameter  variation  with  the  virtual -origin- search  thickness  H. 
Case  number  57.  a)  Karman  coefficient,  b)  Intercept, 
c)  Virtxial  origin,  d)  Wake  strength   123 

3.70  :  Virtual -origin  search.  Case  number  58   124 

3.71:  Distributions  assuming  null  virtual    origin.  Case  nvunber  58. 
a)  Velocity  Profile,  b)  Velocity-Defect  distribution 
c)  Logarithmic  law  of  the  wall,  d)  Wake  functions   125 

3.72:  Parameter  variation  with  the  virtual -origin- search  thickness  H. 
Case  number  58.  a)  Karman  coefficient,  b)  Intercept, 
c)  Virtual  origin,  d)  Wake  strength   126 

3.73  :  Virtual -origin  search.  Case  number  59   127 

3.74:  Distributions  assuming  null  virtual    origin.  Case  number  59. 
a)  Velocity  Profile,  b)  Velocity-Defect  distribution 

c)  Logarithmic  law  of  the  wall,  d)  Wake  functions   128 

3.75:  Parameter  variation  with  the  virtual -origin- search  thickness  H. 

Case  number  59.  a)  Karman  coefficient,  b)  Intercept, 

c)  Virtual  origin,  d)  Wake  strength   129 

3.76  :  Virtual -origin  search.  Case  number  62   130 

3.77:  Distributions  assuming  null  virtual    origin.  Case  number  62. 

a)  Velocity  Profile,  b)  Velocity-Defect  distribution 

c)  Logarithmic  law  of  the  wall,  d)  Wake  functions   131 

xiv 


Figure  Page 

3.78:  Parameter  variation  with  the  virtxial- origin- search  thickness  H, 
Case  number  62.  a)  Karman  coefficient,  b)  Intercept, 

c)Virtual  origin,  d)  Wake  strength   132 

3.79  :  Virtual -origin  search.  Case  number  63   133 

3.80:  Distributions  ass\aming  null  virtual    origin.  Case  number  63. 

a)  Velocity  Profile,  b)  Velocity-Defect  distribution 

c)  Logarithmic  law  of  the  wall,  d)  Wake  functions   134 

3.81:  Parameter  variation  with  the  virtual -origin- search  thickness  H. 

Case  number  63.  a)  Karman  coefficient,  b)  Intercept, 

c)  Virtual  origin,  d)  Wake  strength   135 

3.82  :  Virtual -origin  search.  Case  number  64   136 

3.83:  Distributions  assuming  null  virtual    origin.  Case  number  64. 

a)  Velocity  Profile,  b)  Velocity-Defect  distribution 

c)  Logarithmic  law  of  the  wall,  d)  Wake  functions   137 

3.84:  Parameter  variation  with  the  virtual -origin- search  thickness  H. 

Case  number  64.  a)  Karman  coefficient,  b)  Intercept, 

c)  Virtual  origin,  d)  Wake  strength   138 

3.85  :  Virtual-origin  search.  Case  number  65   139 

3.86:  Distributions  assuming  null  virtual    origin.  Case  number  65. 

a)  Velocity  Profile,  b)  Velocity-Defect  distribution 

c)  Logarithmic  law  of  the  wall,  d)  Wake  functions   140 

3.87:  Parameter  variation  with  the  virtual -origin- search  thickness  H. 

Case  number  65.  a)  Karman  coefficient,  b)  Intercept, 

c)  Virtual  origin,  d)  Wake  strength   141 

3.88  :  Virtual -origin  search.  Case  number  66   142 


XV 


Figure  Page 

3.89:  Distributions  assuming  null  virtual    origin.  Case  ntjmber  66. 
a)  Velocity  Profile,  b)  Velocity-Defect  distribution 

c)  Logarithmic  law  of  the  wall,  d)  Wake  functions   143 

3.90:  Parameter  variation  with  the  virtual -origin- search  thickness  H. 
Case  number  66.  a)  Karman  coefficient,  b)  Intercept, 

c)  Virtual  origin,  d)  Wake  strength   144 

3.91  :  Virtual -origin  search.  Case  number  67+8   145 

3.92:  Distributions  assuming  null  virtual    origin.  Case  number  67+8. 

a)  Velocity  Profile,  b)  Velocity-Defect  distribution 

c)  Logarithmic  law  of  the  wall,  d)  Wake  functions   146 

3.93:  Parameter  variation  with  the  virtual -origin- search  thickness  H. 

Case  number  67+8.  a)  Karman  coefficient,  b)  Intercept, 

c)  Virtual  origin,  d)  Wake  strength   147 

3.94  :  Virtual -origin  search.  Case  number  69  ,.  148 

3.95:  Distributions  assuming  null  virtual    origin.  Case  nvimber  69. 

a)  Velocity  Profile,  b)  Velocity-Defect  distribution 

c)  Logarithmic  law  of  the  wall,  d)  Wake  functions   149 

3.96:  Parameter  variation  with  the  virtual -origin- search  thickness  H. 

Case  number  69.  a)  Karman  coefficient,  b)  Intercept, 

c)  Virtual  origin,  d)  Wake  strength   150 

3.97  :  Virtual -origin  search.  Case  number  70   151 

3.98:  Distributions  assuming  null  virtvial    origin.  Case  number  70. 

a)  Velocity  Profile,  b)  Velocity-Defect  distribution 

c)  Logarithmic  law  of  the  wall,  d)  Wake  functions   152 


xvi 


Figure  Page 

3.99:  Parameter  variation  with  the  virtual -origin- search  thickness  H. 
Case  number  70.  a)  Karman  coefficient,  b)  Intercept, 

c)  Virtual  origin,  d)  Wake  strength   153 

4.1:  Virtual -origin  search  example  using  4  up  to  10  points   167 

4.2:  Virtual -origin  search  example  using  11  up  to  17  points   168 

4.3:  Virtxial- origin  search  example  using  18  up  to  21  points   168 

4,4:  Plot  of  functions  upon  relative  depth   169 

4.5:  Plot  of  functions  with  y+  computed  from  bed  (null  virtual  origin).  170 


xvii 


CHAPTER  1 


BRJEF  ON  RESEARCH  DONE 

1.1.  Ob"fectlves 

This  is  the  final  report  on  a  project  research  entitled  "Comprehensive  Study 
of  the  Karman  Coefficient"  conducted  under  a  specific  cooperative  agreement 
by  the  USDA  National  Sedimentation  Laboratory  and  the  Center  for  Comput- 
ational Hydroscience  and  Engineering  of  the  School  of  Engineering,  The 
University  of  Mississippi. 

The  program,  extending  over  two  years,  consisted  of  basic  studies  of  the 
velocity  profile  in  bounded  shear  flow,  and  included  the  following  research: 

a.  Measurement  of  velocity  profiles  in  bounded  shear  flows  of  various 
intensities  and  depths,  over  boundaries  of  two  roughness  magnitude  and 
type. 

b.  Determination  of  a  valid  definition  for  the  virtual  origin  of  the  velocity 
profile  for  each  of  the  flow  conditions  and  boundary  types  investigated. 

c.  Determination  of  the  relative  thicknesses  of  the  logarithmic  and  wake- 
region  parts  of  velocity  profiles  for  each  of  the  flow  conditions  and 
boundary  types  investigated. 
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d.  Determination  of  a  valid  definition  of  the  Karman  coefficient  for  each  of 
the  flow  conditions  and  boundary  types  investigated. 

e.  Determination  of  local  skin  friction  coefficient  and  Darcy-Weisbach 
resistance  coefficient  values  for  each  of  the  flow  conditions  and  boundary 
t3rpes  investigated. 

The  law  of  the  wall  and  the  velocity  defect  law  have  attained  customary  usage 
in  practical  applications  requiring  vertical  distributions  of  velocities  in 
two-dimensional,  fully- developed  open-channel  flows  over  smooth  and  rough 
beds.  However,  this  extended  use  has  been  carried  out  without  detailed 
verification  in  many  cases.  A  parallel  independent  study  made  with  the  most 
accurate  available  equipment  based  in  Laser  Doppler  Anemometry  (LDA)  over 
smooth  beds  arrived  at  the  conclusion  that  "the  Karman  constant  k  and  the 
integral  constant  A  are  truly  universal,  having  values  of  k  -  0.412  and  A  -= 
5.29  irrespective  of  the  Rejmolds  and  Froude  number.  As  the  Re3molds  number 
becomes  larger,  the  deviation  from  the  log- law  cannot  be  neglected  in  the 
outer  region.  This  deviation  can  be  expressed  well  by  Coles'  wake  function 
involving  a  Reynolds -number  dependent  parameter  <."  (  Nezu  and  Rodi,  1986  ). 
In  the  present  research  much  less  accurate  instrumentation  based  on  a  simple 
Pitot  tube  has  been  used.  The  use  of  an  available  Hot- film  Anemometer  or  an 
LDA  equipment  was  rejected  for  two  reasons.  First,  no  LDA  equipment  was 
available.  Also  LDA  is  presently  not  capable  of  being  used  with  sediments 
except  for  very  low  concentrations.  Secondly,  the  future  expansion  of  this 
research  should  include  sediment -suspending  flows.  Hot  film  probes  cannot  be 
used  in  the  presence  of  sediment  because  their  fragility. 
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An  additional  objective  was  to  develop  analysis  technology  ;  the  course  of 
the  investigation  and  parallel  advancements  in  the  field  occurring  during  the 
two  year  research  made  advisable  reorienting  part  of  the  research  efforts 
towards  developing  the  analysis  technology  to  make  feasible  a  fast,  accurate 
and  objective  analysis  of  increasingly  larger  amounts  of  information.  Hence, 
an  additional  objective  was  inforaally  added  to  previously  listed  ones: 

f .  Developing  a  computational  program  capable  of  providing  automatic  analysis 
of  all  information  relevant  to  the  previously  listed  objectives. 

This  additional  objective,  ultimately  attained  in  the  form  of  a  computational 
program  named  VELMEAS  Version  1  (  for  VELocity  MEASurements  )  proved  to  be 
one  the  most  important  results  of  the  research.  Its  use  revealed  the  high 
sensitivity  of  results  to  slight  changes  in  the  estimation  of  the  virtual 
origin  of  the  velocity  distribution  (  where  U  -  0  )  ,  which  can  for  the  first 
time  be  precisely  provided  (if  the  raw  data  is  accurate  enough) . 

This  finding  indicates  that  a  new  analysis  of  a  vast  amount  of  carefully 
obtained  data  obtained  in  the  past,  for  instance  by  Nikuradse  (1933),  if  done 
with  the  new  analytical  techniques,  may  significantly  increase  understanding 
of  the  velocity  distribution  laws. 
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1.2  The  Laboratory  Fltme 


The  experiments  were  conducted  in  a  recirculating,  adjustable-slope  flume 
located  at  the  USDA  National  Sedimentation  Laboratory  (Oxford,  Mississippi). 
The  flxime  has  an  18  m.  channel,  0.6  m.  wide  and  0.3  m.  deep  (  Figure  1,1  ), 
but  only  small  flow  depths  between  0.06  and  0.10  m  were  used  with  different 
discharges  to  avoid  undesireble  wall  effects  (  Nonetheless,  a  wall -correction 
method  was  included  in  the  analysis  ) . 


Figure  I.l  :  The  Laboratory  Fltme 
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The  channel  is  constructed  of  stainless  steel,  except  for  two  3  m.  long  glass 
windows  near  the  middle  section.  The  flow  in  the  flvime  is  driven  by  a 
centrifugal  pximp  regulated  by  a  discharge  valve.  The  flow  is  measured  by  a 
Venturi  meter  in  the  recirculation  line  to  the  flume  channel.  A  damping 
basin  is  located  at  each  end  of  the  channel,  and  a  battery  of  flow 
straightening  tubes  was  added  in  the  inflow  section  to  further  eliminate 
secondary  flow.  A  surface -wave  breaker  was  also  installed  in  the  inflow 
section  to  produce  a  final  steady  state  regime  with  almost  no  perturbations. 

The  fliome  is  mounted  on  a  central  bearing  pedestal  and  four  interconnected 
screw  jacks,  which  provides  a  system  for  adjusting  the  channel  slope.  Two 
floor-mounted  frames  located  at  approximately  one-third  points  of  the  flume 
length  supported  glass  cylinders  with  a  diameter  of  100  mm,  hydros tat ically 
connected  by  tubes  with  corresponding  sections  of  the  flume  6096  mm.  apart. 
The  water  surface  in  these  tubes  had  a  surface  free  of  capillarity  effects 
with  remarkably  stable  elevation,  because  of  the  large  tube  diameter.  The 
difference  of  elevation  in  between  the  two  tube  water  surfaces ,  measured  with 
point  gauges  having  a  precision  of  0.3048  mm,  was  divided  by  the  distance 
between  the  two  sections  to  obtain  the  flow- surface  slope  with  acceptable 
accuracy.  The  flume  slope  was  obtained  by  using  other  point  gauges  to 
measure  the  instrument  rail  elevations  at  the  same  sections.  At  the 
beginning  of  an  experiment,  after  discharge  was  set,  the  flume  slope  was 
adjusted  and  the  water  slope  was  measured  until  uniform  flow  was  produced  at 
the  velocity  profile  measuring  section.  The  velocity  measuring  probe  was 
positioned  with  accuracy  of  0.01  mm  by  means  of  a  micrometer  fixed  to  a 
special  device  attached  to  a  rigid  carriage  on  the  flume  instrvment  rails,  as 
shown  in  Figure  1.2  . 
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Figure  1.2  :  The  Positioning  device 


The  velocity  probe  was  a  simple  copper  total -head  tube  with  an  external 
diameter  of  3.10  mm.  The  tube  wall  at  the  tip  was  made  as  thin  as  possible 
by  forming  an  internal  wedge  with  an  angle  of  10  degrees .  This  minimized  but 
did  not  entirely  eliminate,  wall  proximity  error.  The  difference  between  the 
hydrostatic  pressure,  obtained  through  a  piezometric  tap  in  the  flume  channel 
bottom  in  the  same  section  as  the  velocity  probe  tip,  and  the  higher  pressure 
obtained  through  the  total  head  tube,  was  measured  by  a  pressure  transducer. 
The  transducer  had  a  tolerance  of  0.5%  of  pressure  range  and  was  attached  to 
an  electronic  device  that  displayed  the  differential  pressure  in  Volts  and 
could  be  calibrated  to  indicate  the  measured  differential  head. 
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Using  a  point  gauge  with  an  accuracy  of  0.3048  mm,  the  pressure  transducer 
and  attached  electronics  were  found  to  follow  a  linear  variation  satisfying 
the  constant  equivalence  1  Volt  X  0.03048  m  in  the  measured  range.  The 
calibration  formula  for  converting  Volts  to  velocity  values  was  (  with  g  - 
9.816  m/sec2  and  Cp  -  0.98.      Cp  [(0.06096  g)  -  0.758  ): 

V[m./sec.]  -  0.758  [ (Wh)  (1.1.1) 
where  V  is  the  instantaneous  velocity  in  m./sec.  and  Wh  is  the  instantaneous 
sampled  differential  pressure  in  Volts. 

The  transducer  hydraulic  set-up  used  during  data  acquisition  and  calibration 
is  shown  in  Figure  1.3.  This  combination  of  valves  and  tubes  also  serves  to 
eliminate  air  bubbles  from  the  transducer  and  the  Pitot  tube  and  allows 
backf lushing  to  eliminate  any  trash  collected  by  the  tube  orifice.  The 
system  zero  and  calibration  could  be  checked  at  any  time,  and  air  bubbles 
could  be  purged  without  loss  of  calibration.  During  data  acquisition,  the 
system  provided  fast  and  relatively  undamped  response  to  velocity 
fluctuations . 

A  short,  first  battery  of  tests  was  conducted  with  flow  over  the  original 
untreated  steel  fltime  bottom.  Then  the  bed  was  painted  with  a  commercially 
available  plastic  paint  in  an  attempt  to  improve  its  smoothness.  Two 
complete  series  of  tests  for  the  practicable  range  of  discharges  were 
conducted  using  the  painted  bed.  Then  a  series  of  horizontal  distributions 
of  velocities  at  approximately  20  and  80  %  of  the  depth  was  measured  for  two 
discharges  to  check  the  assumption  of  two-dimensional  flow  in  the  central 
part  of  the  test  section. 


a)  Sketch 


b)  Photography 
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Figure  1.3  :  The  Transducer  hookup  device:  a)  Sketch,  b)  Photography 


A  representative  rough  bed  was  then  formed  by  carefully  laying  a  close  packed 
bed  of  lead  balls  (  Figure  1.4  )  with  a  diameter  of  6.35  mm.,  over  the  whole 
length  of  the  channel  (  Figure  1.5  ). 

An  extensive  series  of  experiments  was  performed  in  flows  over  this  rough 
bed,  as  described  in  Chapter  2. 
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1.3  The  Program  VEIMEAS 


The  program  VELMEAS  Version  1  developed  in  the  course  of  the  present  research 
acquires  data  in  form  of  random  signals  and  produces  a  statistical  and 
deterministic  analysis  of  the  data  collected. 

The  statistical  analysis  generates  basic  parameters  for  each  probe  position. 
The  corresponding  theory  is  summarized  in  section  2.2,  and  its  computational 
implementation  is  described  in  section  4.5. 

The  deterministic  analysis  is  essentially  a  consistent  ensemble  of  existing 
theories  concerning  turbulent  boundary  layers,  combined  with  some  advances  in 
previously  developed  techniques  for  treatment  of  these  theories.  An  ex- 
tensive use  of  polynomial  correlation  is  also  included.  The  theories  used 
are  summarized  in  sections  2.3  to  2.7,  and  their  computational  implementation 
in  analysis  is  described  in  sections  4.6.  to  4.8. 

There  is  also  a  Regression  facility  in  the  program,  useable  for  non-automatic 
analysis,  which  is  an  additional  tool  for  the  investigator  (Section  4.6). 

The  program  has  been  written  in  FORTRAN  IV  language  to  facilitate  port- 
ability, which  has  been  tested  (See  section  4.2).  The  data  acquisition  part 
however,  is  quite  machine  dependent  (See  section  4.4).  A  Main  routine 
manages  the  whole  analysis,  facilitating  future  expansions  (See  section  4.3). 
Plotting  is  extensively  used  to  ease  the  task  of  the  investigator  and  to 
document  the  results  in  a  comprehensive  way  (See  section  4.8). 
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The  source  code  is  included  in  this  report  (Appendix  A)  as  well  as  execution 
files  used  with  two  very  different  operating  systems  and  machine  environments 
(Appendix  B) .    A  detailed  User  Manual  is  also  included  as  the  Chapter  5 . 

The  large  number  of  different  techniques  and  procedures  that  had  to  be  merged 
to  compose  a  comprehensive  and  consistent  analysis  was  a  cumbersome  task. 
This  may  serve  to  partly  justify  the  relative  lack  of  "transparency"  of  the 
program. 

1.4  Data  accroisitlon  and  Statistical  Analysis 

VHien  measuring  instantaneous  velocity  values  in  a  turbulent  flow  as  a  series 
of  values  sampled  in  rapid  succession  during  a  relatively  large  period  of 
time,  the  resulting  histogram  is  always  in  part  characterized  by  the  presence 
of  intermitent  episodes  of  sudden  amplification  of  the  background  fluctu- 
tion,  or  bursts.  The  bursts  are  a  typical  result  of  turbulence  and  its 
associated  eddy  generation  and  destruction  process.  In  addition  to  this, 
means  obtained  in  different  periods  will  change  following  a  long-wave 
pattern,  even  after  days  of  continuous  operation,  when  mass  oscillation  in 
the  flxome  due  to  the  flow  stablishing  period  has  certainly  been  damped;  this 
is  due  to  the  channel -pump -engine  system  for  which  an  exact  steady  state  can 
never  be  established,  because  of  electrical  fluctuations  and  mechanical 
oscillations . 

When  attempting  to  obtain  mean-velocity  distributions,  the  only  remedy  is  to 
extend  the  data  acquisition  in  each  probe  position  and  the  subsequent 
statistical  analysis  over  a  sufficiently  large  period. 
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Every  system  will  require  a  different  period  that  should  be  determined  by  a 
series  of  tests  that  systematically  increase  the  period  of  measurement  in  a 
well  established  flow.  Tests  conducted  at  the  beginning  of  this  research 
indicated  a  period  of  5  minutes  for  a  sample  interval  of  0.01  seconds  is  the 
shortest  period  for  which  stationary  means  could  be  obtained. 

The  statistical  analysis  generates  basic  parameters  for  measurements  at  each 
position,  including  the  Mean,  the  Standard  Deviation,  the  Probability 
Distribution  of  Frequencies  (PDF)  diagram  and  its  Mode,  Median,  Skewness  and 
Kurtosis,  as  well  as  the  first  to  fourth  Moments  about  the  zero  and  about  the 
Mean. 

The  PDF  has  been  found  to  be  a  reliable  auxiliary  in  determining  when  the 
system  is  steady  enough  for  meaningful  measurements .  Mass  oscillations 
appear  as  distinct  peaks  shown  by  the  program  on  a  conventional  text- terminal 
screen.  Theoretical  considerations  are  presented  in  sections  2.2  and  2.3  and 
practical  implementation  in  sections  4.5  and  4.6. 

1.5.  BotmdarY-Laver  Analysis 

The  boundary- layer  analysis  of  present  measurements  is  in  close  agreement 
with  the  objectives  stated  in  section  1.1.  The  Karman- Coles  equation  for 
distribution  of  velocities  in  boundary  layers  was  selected  as  a  basis  of 
analysis,  since  it  is  a  most  general  relationship  including  theoretical  and 
factual  considerations,  and  yet  allows  objective  treatment  when  properly 
applied.  It  includes  a  logarithmic  component,  supported  by  a  long  record  of 
observations  and  theoretical  dimensional  analysis,  a  functional  decrement 
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depending  upon  channel  roughness,  and  a  "wake"  function  that  allows  a  smooth 
transition  between  the  logarithmic  distribution  and  the  outer  flow.  The  wake 
function  is  nowadays  a  proven  feature  of  turbulent  boundary  layers,  confirmed 
by  present  experiments.  The  basic  theory  is  presented  in  section  2.4,  while 
non-dimensional  equations  are  summarized  in  section  2.5.  Secondary 
procedures  that  account  for  needed  corrections  of  measurements  due  to  the 
proximity  of  the  probe  to  the  bed  and  walls  of  the  channel  are  outlined  in 
section  2.7.  Channel  resistance  to  flow  as  expressed  by  the  Darcy-Weisbach 
friction  coefficient  is  estimated  as  described  in  section  2.8. 

A  large  effort  was  directed  toward  computing  the  virtual  origin  distance  from 
the  reference  origin  used  in  making  physical  measurements  and  defining  its 
influence  in  the  mathematical  expression  of  the  velocity  distributions.  A 
computational  procedure  was  developed  that  for  the  first  time  permits  an 
automatic  and  precise  determination  of  the  virtual  origin  e  for  a  given 
thickness  of  the  inner  sublayer. 

The  search  for  a  virtual  origin  consists  of  an  iterative  procedure,  in  which 
a  guess  of  its  position  is  made  and  subsequently  improved  through  a  series  of 
linear  regression  analyses  that  use  the  standard  error  of  estimate  s  as 
selecting  parameter;  the  correct  virtual  origin  distance  is  the  one  that 
produces  the  least  s.  Section  2.6  details  the  analysis.  If  the  thickness  of 
the  logarithmic  region  is  precisely  determined,  the  correct  e  value  will  be 
that  determined  by  including  in  the  analysis  all  and  only  those  points 
included  in  this  zone. 
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1.6.  Conclusions  and  Recomendatlons 


Present  research  proves  that  an  objective  definition  of  a  virtual  origin  for 
measured  velocity  profiles  in  a  bounded  shear  flow  is  attainable,  provided 
adequate  instrumentation  is  used,  by  means  of  a  computational  procedure. 
This  procedure  was  developed  and  applied  in  the  course  of  this  investigation. 
The  separation  between  the  inner  and  outer  flows  is  also  recognized  by  the 
procedure,  but  its  precise  determination  still  requires  further  developments 
and  more  accurate  measurements  that  the  ones  reported  here.  The  best 
estimate  of  virtual  origin  ultimately  depends  upon  the  identification  of  the 
thickness  of  the  inner  region.  However,  the  equipment  used  for  data 
acquisition  have  not  allowed  that  identification.  More  precise  data  would 
permit  extensions  of  the  analysis;  although  no  precise  computation  of 
required  accuracy  has  been  executed,  the  authors  believe  that  data  acquired 
with  hot-film  or  laser-Doppler  anemometers  (LDA)  should  suffice.  Neverthe- 
less, it  is  possible  that  carefully-obtained  data  using  small -diameter  Pitot 
tubes  in  very  stable  flows  like  those  resulting  from  Nikuradse's  experiments 
in  pipes,  may  be  successfully  treated  with  this  new  procedure.  It  is 
possible  to  analyze  long-ago  obtained  data  in  the  light  of  new  knowledge  and 
extract  new  information.  For  example,  Nikuradse's  experiments  are  highly 
reliable;  the  apparent  lack  of  wake  effects  in  Nikuradse  data  may  be  dis- 
proved with  the  more  accurate  procedures  for  computing  the  virtual  origin  and 
its  effects  upon  data  alignment  like  the  one  here  developed.  Therefore,  a 
new  analysis  of  his  comprehensive  set  of  measurements  is  recommended.  Also 
recent  data  obtained  using  LDA  may  yield  new  knowledge  when  treated  with  this 
new  technique.  Technical  conclusions  on  data  obtained  in  the  course  of  this 
investigations  are  included  in  Chapter  3. 
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CHAPTER  2 


THEORY  AND  METHODS  USED  IN  THE  AHALYSIS 

2.1.  Introduct Ion 

A  number  of  procedures  have  been  incorporated  in  the  program  VELMEAS  to  make 
possible  an  automated  analysis  of  data  collected  in  a  laboratory  flume  (the 
analysis  would  in  fact  also  be  valid  in  part  for  any  random  signal  collected 
through  a  sampling  system) .  An  extensive  collection  of  rather  simple 
techniques  was  merged  in  a  single  program  providing  an  efficient  and  fast  way 
of  executing  an  otherwise  cumbersome  task. 

Those  parts  of  the  present  analysis  that  refer  to  velocity  distributions  are 
little  more  than  a  computational  implementation  of  the  theory  recently 
outlined  by  Coleman  (1985),  and  may  be  regarded  as  a  consistent  ensemble  of 
well-known  contributions  of  von  Karman  (1930) ,  Schlichting  (1937) ,  Millikan 
(1938)  and  Coles  (1956).  Only  techniques  involving  formulation  or  some 
mathematics  are  reported  here.  Chapter  4  (  Program  description  )  and  in  less 
measure  Chapter  5  (  User  Manual  )  complement  this  account. 

Each  section  in  this  chapter  groups  closely  related  techniques .  A  new 
procedure  to  find  the  actual  origin  of  the  velocity  distribution  (the  point 
where  the  time-mean  pointwise  velocity  is  null)  has  been  developed  and  is 
discussed  in  section  2.6. 
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2.2  Statistical  Methods 


In  the  flume  experiments  a  total  of  30,000  samples  collected  over  a  period  of 
5  minutes  was  taken  at  each  probe  position.  A  minimiom  of  20  and  a  maximim  of 
60  positions  were  measured  for  each  velocity  distribution  investigated  in  the 
course  of  a  single  experiment.  Since  present  research  is  concentrated  on 
mean  parameters  of  the  distribution,  such  as  the  Karman  coefficient,  the 
intercept  and  the  wake  strength  coefficients,  the  determination  of  a  mean- 
temporal  pointwise  velocity  for  a  single  position  is  the  most  essential  part 
of  the  analysis,  as  it  is  for  any  analysis  involving  turbulent  flows.  No 
measuring  reliability  can  be  assessed,  however,  without  determining  the 
standard  deviation  and  investigating  the  characteristics  of  the  frequency 
distributions.  The  latter  is  done  by  obtaining  a  Probability  Distributions 
of  Frequencies  (PDF),  and  calculating  its  Skewness  and  Kurtosis. 

One  characteristic  of  PDF  diagrams  of  velocities  is  that  they  are  clearly 
positively  skewed,  particularly  close  to  a  wall,  as  evidenced  by  similar 
measurements  made  with  hot  films  in  a  zero-pressure  gradient  flow  by  Wylie  et 
al.  (1977).  Although  the  PDFs  obtained  by  Wylie  were  well  fitted  by  a 
theoretical  two-parameter  Gamma-density  function  at  the  comers  of  the  cross 
section  in  the  same  laboratory  flume  used  in  the  present  study,  the  goodness 
of  fit  in  the  remaining  (  and  more  important  )  parts  of  the  wetted  perimeter 
was  not  satisfactory.  The  lognoinnal  distribution  as  reported  was  even  less 
satisfactory.  The  reason  for  these  consistently  found  positive  skewnesses  is 
not  known.  It  appears  to  be  connected  with  the  presence  of  large-scale 
eddies  close  to  the  wall.  These  eddies  are  more  stable  close  to  the  corners, 
which  may  be  the  reason  for  more  consistent  results  there. 
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To  account  for  the  aforementioned  results,  the  use  of  a  theoretical 
distribution  was  discarded,  and  the  computation  of  actually  measured  PDF  used 
instead. 


The  following  classical  formulation  was  used,  as  described  by  Yule  and 
Kendall  (1968),  with  N  the  number  of  samples,  and  Vj^  the  measured- 
instantaneous  velocity  or  sample. 


Mean  U; 


1  N 

V  =  -    S    V.  (2.2.1) 
N  i=l  ^ 


Standard  Deviation  a: 


r    1        N      ,  N         ,  ^1/2 

=      —  [  2  (V2)  -  (  2    V  )2/N  ]  (2.2.2) 
L  N-1    i=l    ^         i=l  J 


Equation  (2.2.2)  is  the  best  suited  form  to  compute  a  for  it  does  not  require 
the  previous  computation  of  the  Mean.  In  fact  both  summations  of  Vj^  and  V^^ 
are  done  at  the  same  time. 

The  analogic-digital  converter  has  a  certain  resolution  (in  the  present  case 
0.005  Volts)  which  is  considered  as  a  class  interval.  Hence  values  which  are 
available  in  discretized  fashion  are  counted.  The  number  of  times  a  certain 
class  value  Vj  appears  is  divided  by  N  to  obtain  the  frequency  f 
corresponding  to  that  value.    A  PDF  results,  with  M  class  values  satisfying: 

M 

S    f.  =  1  (2.2.3) 
j=l  J 

M 

U  =    2    f.V.  (2.2.4) 
j=l    J  J 
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r  1    M     -      M       ,  ^1/2 

a  =  \     ^  I  2  (f  V2)  -  (2    f.V  )2/N  ]        ^  (2.2.5) 
I    N-1    j=l    J  J  j=l    J  J  J 

The  skewness  Sy^  and  kurtosis  can  also  be  computed  by  using  the  PDF.  If  d 
is  the  distance  between  the  mean  and  an  arbitrary  origin  o: 

d  =  U  -  o  (2.2.6) 
the  nth- Moment  about  the  origin  would  be  given  by: 

T'  =    2    f.(V.  -  o)  (2.2.7) 
n      j=l    J     J  ' 

Since  the  origin  is  arbitrary,  we  choose  o  =  0  (zero)  and  equation  (2.2.7) 
becomes : 

M  n 

T'  =    2    f.V,  (2.2.8) 
^     j=l    J  J 

while  d  =  U.  The  nth- Moment  about  the  mean  however  requires  knowing  the  mean: 

T    =    S    f.(V.  -  U)  (2.2.9) 
n      j=l    J     J  ' 

It  is  advantageous  to  compute  first  the  moments  about  the  origin,  for  this 
can  be  done  simultaneously  with  the  computation  of  U  and  a  in  terms  of  the 
frequencies.  Then  the  moments  about  the  mean  can  be  computed  from  those 
about  the  origin  by  means  of  equations  (2.2.10)  to  (2.2.13)  (See  Yule  and 
Kendall,  1968): 

T^  =  0  (2.2.10) 

T2  =  a2  (2.2.11) 

T^  =  T^  -  3dT^  +  2d3  (2.2.12) 

T    =  t;  -  4dT;  +  6d2T;  -  3d^  (2.2.13) 
4        4  3  2 

It  has  been  shown  that  if  the  distribution  of  frequencies  tapers  off  to  zero 
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in  both  directions,  which  is  the  case,  the  following  Sheppard's  corrections 
are  to  be  introduced  (The  sub- index  c  indicates  the  corrected  value  and  A  is 
the  class  interval) : 

T2c  =  T2  -  a2/12  (2.2.14) 
T4c  =  T4  -  0.5a2t2  +  (7/240)A'^  (2.2.15) 
The  following  parameters  are  next  derived  from  these  moments : 

t2 

^.  =  —  (2.2.16) 

1  t3 

2c 

T 

=  —  (2.2.17) 

2  t2 

2c 

from  which  the  skewness  S]^  and  kurtosis        are  computed: 

(^  )V2(P    +  3) 

Sk  =  [—  ]-Sgn(U  -  U  )  (2.2.18) 

2(5/92"  ^^1  -  ^) 

Ku  =  ^2  "  ^  (2.2.19) 

Here  is  the  median,  which  is  the  V  class  value  for  which  the  cumulative 
continuous  distribution  of  frequencies  (CDF)  is  equal  to  one  half,  i.e.  , 
/f(V)dV  =0.50  .  The  original  form  of  equation  (2.2.18)  does  not  allow  the 
determination  of  the  skewness  sign,  but  gives  the  absolute  value  of  the 
ratio.  The  function  Sgn(U-Ua^)  used  as  a  factor  gives  a  consistent  definition 
of  the  skewness  sign.  The  theoretical  reference  for  determining  the  sign  of 
Sk  should  actually  be  the  Mode  Mq,  which  is  the  class  value  for  which  f  is 
maximum,  rather  than  the  median.  However,  the  PDF  has  in  practice  small  local 
peaks  that  may  alter  the  position  of  the  mode.  The  median,  obtained  by 
accumulated  integration  starting  from  the  minimum  registered  class  value,  is 
a  much  more  reliable  parameter  than  the  mode . 
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2.3  Correlation  Methods 


Polynomial  regressions  are  used  to  obtain  faired  curves  through  the  pointwise 
time-means  (which  will  be  called  "observations").  Polynomial  regressions  are 
a  subset  of  the  set  of  multiple  regressions.  A  regression  value  U  will  be 
obtained  from  (Camahan  et  al.,  1969): 

U  =  a  +  b]!Xi  +  b2X2  +   +  b^Xn  (2.3.1) 

where  x^,  X2,    are  n  different  variables. 

A  polynomial  or  curvilinear  regression  of  n^th  order  is  that  special  case  of 

multiple  regression  for  which  X]^  =  y,  X2  =  y^,   ,  x-^  =  y^,  or: 

U  =  a  +  biy  +  b2y2  +    +  b^y^  (2.3.2) 

If  there  are  m  observations  Uj^  corresponding  to  positions  y;^,  the  following  n 
X  n  coefficients  Cj^j  and  n  coefficients  C^U' 

m         m  ^ 

c.  =    2    yf'^j  -   [k=l  ^  k=l  (2.3.3) 


'ij      k=l  ^ 


m 


=1U  =  ^1  yW  -  I*"'  '  (2.3.4) 

lead  to  the  linear  system  of  n  equations  with  n  unknowns  bj : 

2  ci^b^  =  ciu  (2.3.5) 
j=l 

which,  when  solved,  yield  the  values  of  the  regression  coefficients  bj  of 
equation  (2.3.2).  The  intercept  a  in  the  same  regression  equation  is 
obtained  from: 

-     n  _i 

a  =  U  -  2    b.y  (2.3.6) 
i=l  1 
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where  U  and  y  are  means  of  the  regression  data. 


The  error  of  estimate  a  is  obtained  by  calculating  yet  another  coefficient: 

c.„  =    S    U2  ^  (2.3.7) 

which  is  used  into  next  equation: 


It  should  be  noticed  that  there  are  only  m-n-1  degrees  of  freedom,  because 
n+1  coefficients  have  been  estimated  from  the  data.  Hence  a  larger  poly- 
nomial order,  while  giving  higher  flexibility  to  the  fitting,  tends  to 
degrade  the  quality  of  the  approximation  by  increasing  a,  unless  m  is  much 
higher  than  n.  The  standard  error  of  estimate  a  is  used  to  judge  the 
relative  fitting  quality  of  different  polynomial  regressions. 


In  the  present  research  the  independent  variable  y  is  usually  transformed  by 
the  natural  logarithms.  If  the  dependent  variable  is  also  converted,  the 
goodness  of  fit  should  be  done  after  applying  the  inverse  of  the 
transformation  function  to  the  resultant  a. 


Sometimes  the  solution  of  the  system  of  equations  offers  difficulties.  The 
Gauss-Jordan  reduction  method  with  pivoting  strategy  (Camahan  et  al.  ,  1969) 
was  found  quite  efficient  in  producing  appropiate  solutions. 
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2.4  The  lav  of  the  vail  and  the  lav  of  the  vake 


Channel  flows  belong  to  the  general  class  of  inner  bounded- shear  flows,  as  do 
pipe  flows,  flows  around  airplane  components  or  ship  hulls,  and  even  flows  in 
rivers  (despite  their  complicated  countour  and  roughness  variability) .  There 
often  is  a  need  for  computing  the  distribution  of  velocities  in  the  boundary 
layer  that  forms  at  least  close  to  any  boundary  and  that  sometimes  occupy ies 
the  whole  extent  of  the  flow.  Figure  2.1  illustrates  a  typical  velocity 
distribution,  in  this  case  one  measured  in  a  laboratory  flume  by  the  writers 
using  a  simple  Pitot  tube  (The  curve  through  the  points  is  a  polynomial 
obtained  applying  the  procedure  described  in  section  2.3;  see  section  2.5  for 
the  definition  of  the  graph  coordinates). 
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Flg;are  2.1  :  A  measured  velocity  distribution. 

22 


Figure  2.2  shows  a  more  complete  profile  prepared  by  Cebeci  and  Smith  (1974) 
from  data  obtained  by  Klebanoff  in  1954,  with  a  classical  description  of  the 
boundary  layer  in  terms  of  regions  and  sub-layers. 


0  500         1000        1500       2000       2500       3000  3500 


Ql  1  1  \  i  \  1  1  1  \  1 

I        2  5        10.      20         50      100    200       500   1000  2000  5000 


Figure  2.2  :  The  boundary- layer  regions  (  After  Cebeci  and  Smith,  1974  ). 


Since  a  thin  viscous  sublayer  and  a  buffer  layer  (altogether,  approximately 
the  lower  10  %  of  the  inner  region  or  the  lower  1  %  of  the  boundary  layer) 
were  out  of  reach  of  the  probe  in  present  study,  the  measured  velocity 
distribution  in  Figure  2.1  may  be  represented  by  the  Karman-Coles  equation 
(Coles,  1956).  It  accounts  for  the  fully- turbulent  region  (approximately  the 
upper  90  %  of  the  inner  region)  and  the  outer  region  (approximately  the  upper 
90  %  of  the  boundary  layer) . 
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The  Karman-Coles  equation  is  presently  written 

!L  =  1  A  -  ^  +  5  (2.4.1) 

In  equation  (2.4.1),  k  is  the  von  Karman  parameter  and  u  is  the  kinematic 
viscosity,  U  is  the  pointwise  time-mean  velocity,  y  is  the  distance  from 
origin  (where  U  =  0) ,  and  U*  is  the  shear  velocity,  given  by: 

=  [— (2.4.2) 
P 

with  Tq  the  shear  stress  at  the  wall,  and  p  the  fluid  density.  n  is  the 
"wake  strength  parameter"  and  w  is  the  "wake  function"  introduced  by  Coles 
(1956) ,  discussed  below.  The  term  AU/U*  is  the  "velocity  decrement"  which 
depends  upon  the  channel  roughness , 

Very  close  to  U  =  0  there  is  essentially  no  room  for  turbulence  so  that 
viscosity  dominates  and  the  original  Boussineq's  proportionality  between  the 
gradient  of  velocity  and  shear  stress  applies  (with  fi  -  i/p  ,  "dynamic 
viscosity" ,  the  coefficient  of  proportionality) : 

U2=!£=.^  (2.4.3) 
*      P  dy 

from  which,  integrating, 

^  =    (2.4.4) 

This  equation  (2.4.4)  is  the  "viscous  law  of  the  wall",  valid  in  the  viscous 
sublayer,  proximate  to  the  origin  of  the  velocity  distribution.  This  region 
is  not  represented  in  Fig. 2.1  because  it  could  not  be  resolved  by  the 
velocity  probe  used.     If  the  outer  region  is  also  excluded  from  the  data  in 
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Figure  2.1,  the  remaining  points  closely  align  themselves  on  a  linear  pattern 
(when  plotted  in  IT*",  finCy"^)  coordinates),  as  in  Figure  2.3.  This  is  the 
"fully- turbulent  law  of  the  wall".  It  is  also  known  as  the  "logarithmic 
part"  of  the  velocity  distribution  because  its  mentioned  graph  properties. 
It  is  represented  by  the  first  two  terms  on  the  right-hand  side  of  eq. 
(2.4.1).  It  has  been  found  for  many  researchers  not  to  exceed  (unless  the 
Reynolds  number  is  very  small)  about  10  to  20  %  of  the  total  boundary  layer. 


LOG.  LAW  OF  THE  WALL 


5.200 
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Figure  2.3  :  A  meastired  fully -turbulent  law  of  the  wall. 

The  over-stating  term  "law"  somewhat  obscures  the  fact  that  eq. (2.4.1)  and 
(2.4.4)  are  mere  phenomeno logic  relationships.  However  its  use  is  customary. 
The  buffer  region  is  a  transitional  zone  between  the  viscous  and  fully- 
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turbulent  laws.  According  to  assumptions  needed  to  derive  equation  (2.4.4) 
from  eq. (2.4.3)  the  shear-stress  is  constant  in  the  viscous  sub-layer.  In 
the  buffer  zone,  turbulence  grows  rapidly  and  the  gradient  of  shear-stress 
should  be  expected  to  reach  a  maximum.  Outside  the  viscous  sub-layer,  the 
Boussinesq  relationship  includes  the  correlation  uv  (  u  and  v  are  the 
fluctuating  components  of  time-mean  pointwise  velocity  components  U  and  V) : 

L  =  u  —  -  ^  (2.4.5) 
P  By 

The  first  two  terms  to  the  right  of  equal  sign  in  equation  (2.4.1)  are  the 
log- linear  part  of  the  distribution  of  velocities,  i.e.  the  fully- turbulent 
law  of  the  wall.  The  last  term  is  the  non- linear  part,  and  it  has  been  named 
the  "law  of  the  wake"  by  Coles. 

The  existence  of  the  wake  has  been  consistently  confirmed  by  a  number  of 
researchers  (See  Cebeci  and  Smith,  1974  ;  Coleman,  1981  ;  Nezu  and  Rodi, 
1986) .  Again  its  mathematical  form  is  unknown  and  phenomenological 
relationships  have  been  built  by  using  measured  data.  The  first  and  most 
used  is  that  of  Coles,  written  here  as  equation  (2.4.6).  Other  fittings  have 
been  made  by  other  authors  such  as  Finley  et  al.  (1966)  who  expressed  it  as 
the  polynomial  in  equation  (2.4.7). 

a)(^)  =  2  sin2(-  ^)  (2.4.6) 
S  16 

w(^)  =  -(^)(1  -  ^)  +  2(^)^(3  -  2(^)]  (2.4.7) 
6        n  5  5  8  6 

Figure  2.4  serves  to  compare  Coles'  and  Finley' s  "laws"  with  a  measured  wake 
obtained  in  the  course  of  this  research.  As  expected,  it  confirms  the 
existence  of  the  wake. 
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The  case  shown  was  fitted  with  k  =  0.428,  A-AU/U*  =  4.871  and  n  =  0.370;  the 
standard  error  of  estimate  for  the  law  of  the  wall  was  a  =  0.0324,  while 
Un/U*  =  24.038  ,  W/u  =  1743,  U*  =  25.26  mm,  and  i/  =  0.924  mm2/sec. 


A  consistent  definition  for  the  velocity  decrement  in  eq. (2.4.1)  was  given  by 
Schlichting  (1937)  who  first  introduced  the  "equivalent  roughness"  concept 
and  the  use  of  the  "equivalent  roughness"  k  leading  to  equation  (2.4.8)  and, 
by  replacement  of  this  into  eq. (2.4.1),  to  equation  (2.4.9).  Nikuradse's 
(1950)  "equivalent- sand  roughness"  kg  obtained  through  his  famous  pipe 
experiments  is  a  direct  derivation  of  this  concept.  The  velocity  decrement 
is 
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Comparison  between  a  meastired  lav  of  the  vake  and  the  predicted 
by  Coles'  and  Finley's  lavs  (  n  -  0.370  ). 
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In  Schlichting-Nikuradse  rough-wall  terms, 

H_  =  1  2n(^)  +  C  +  -  a)(^)  (2.4.9) 
K        k  K  6 

Clearly,  the  coefficient  C  in  equation  (2.4.9)  is  given  by: 

C  =  A  -  B  (2.4.10) 
Coles's  function  co  has  the  limits  0  for  y  =  0  and  2  for  y  =  5.  U  would  be 
maximum  for  the  superior  limit,  i.e.,  U  =  Ujjj.  In  this  case,  equation  (2.4.1) 
yields : 

^  =  i  en(^)  -.A  -  ^H-  25  (2.4.11) 

U.         K  1/  U.  K 

*  * 

Substracting  equation  (2.4.1)  from  equation  (2.4.11),  the  Prandtl-Karman- 
Coles  "velocity-defect  law"  results: 

^         1  /,  /Yx      211      n     ,y.  , 
  =  -  _  j2n(i)  +   c<j(i)  (2.4.12) 


U.  K  6  K         K  S 


The  velocity-defect  law  has  the  advantage  in  both  forms  of  the  velocity  law 
that  the  argument  in  the  two  variable  terms  is  the  same  ratio  y/S .  The  non- 
linear part  clearly  becomes  asymptotic  to  the  log-linear  part,  allowing  the 
definition,  to  some  degree,  of  a  limit  between  the  inner  and  outer  regions; 
hence  the  slope  of  the  linear  part,  which  is  the  inverse  of  the  Karman 
coefficient.     Figure  2.5  displays  one  measured  velocity-defect  law. 


Finally,  the  wake  strength  parameter  n  can  be  computed  by  projecting  the 
straigth  line  fit  from  the  asymptotically  logarithmic  part  of  the  data  plot 
up  to  y  =  5  .     From  eq. (2.4.11)  this  is  equivalent  to  computing 

U  U^5 

n  =  0.5  [  k(—  -  A')  -  fin(  )   ]  (2.4.13) 

* 
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where  A'   is  the  intercept  from  the  U^.y"*"  graph,  for  which: 

A'  =  A  -  ^ 


(2.4.14) 


VEL. -DEFECT  DISTRIB. 


LN  (Y/D) 

Figure  2.5  :  A  meastired  velocity  defect  lav. 


following  two  equations : 

(2.5.1) 

(2.5.2) 


2 . 5  Dlmensionless-varlables  equations 


Dimensionless  coordinates  y"*",  IT*"  are  defined  by  the 


y  = 
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Similarly  other  dimensionless  variables  are  defined  in  following  equations: 

=  ^  (2.5.3) 

+  * 

k    =    (2.5.4) 


+  * 

5    =    (2.5.7) 


+ 

^  =  Z  =  y_  =  1+  (2.5.8) 
+ 

r  =  ^  =  ^  =  r"^  (2.5.9) 
^  k^ 

By  additionally  defining  an  inverse  s  of  von  Karman's  k  coefficient, 

s  =  -  (2.5.10) 

AC 

the  set  of  laws  become  (  s  is  the  slope  of  the  log-linear  part  of  the  graph): 

U"^  =  s  en(y^)  +  A  -  AU"^  +  sn  a)(^'^)  (2.5.11) 

AU"^  =  s  fin(k"*")  +  B  (2.5.12) 

U"^  =  s  fin(f'*")  +  C  -  +  sn  w(^'*')  (2.5.13) 


U"^  =  -s  fin(5'^)  +  A  -  AU"^  +  2sn  (2.5.14) 
m 


d"^  =  U"^  -  U"^  =  -s  £n(e'^)  +  sn[2  -  o;(|"^)]  (2.5.15) 
m 


n  =  0.5  [  /c(u"*"  -  A')  -  iniS'*')   ]  (2.5.16) 
m 


A'  =  A  -  AU"*"  (2.5.17) 


30 


Although  the  physical  properties  become  a  little  obscured,  this  dimensionless 
form  of  the  equations  displays  their  graph  properties.  For  instance, 
equation  (2.5.5)  for  the  velocity  defect  D"*"  has  a  non-linear  component  sIIwC^) 
(which  is  the  wake)  and  a  log-linear  one.  The  log-linear  part  has  an 
intercept  equal  to  2sn  ,  which  is  the  value  of  the  wake  at  its  maximum. 

2.6  Vlrtnial  Origin 

The  problem  of  determining  the  origin  of  the  y  axis  for  a  velocity  profile  is 
not  only  a  theoretical  problem  but  a  first-order  practical  one,  for  an  error 
in  its  determination  may  affect  the  fitting  of  the  velocity-distribution 
laws.  Theoretically,  the  exact  origin  should  be  the  elevation  at  which  U  =  0 
(see  Figure  2.6).  If  the  solid  boundary  of  the  flow  being  examined  were  in 
fact  absolutely  smooth  and  truly  planar,  the  problem  would  not  arise,  as 
(y=0,U=0)  would  exactly  coincide  with  the  solid  surface.  In  practice,  this 
point  is  hardly  ever  known  a  priori.  For  example,  experimental  data  may  be 
taken  in  a  flume  channel  with  a  bottom  composed  of  metal  sheet,  which  to  the 
eye  may  appear  to  be  perfectly  smooth  and  planar.  Yet  small  surface 
undulations  and  a  very  small  roughness  texture  may  still  cause  significant 
uncertainties  in  the  origin  of  y.  The  problem  is  aggravated  when  boundaries 
of  larger  roughness  elements  are  considered.  The  resolution  of  the  origin 
uncertainty  becomes  of  first  importance. 

The  effect  of  virtual  origin  uncertainty  can  be  demostrated  by  an  exercise 
involving  Figure  2.1.  If  the  origin  of  y"*"  is  changed  by  adding  an  arbitrary 
constant  e"*",  say  with  a  value  of  60,  and  the  data  points  are  replotted  on  the 
original  graph  as  (ir'",fin(y"^  +  c"*")),  the  data  points  will  rearrange  themselves 
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closely  along  a  log- linear  function  that  can  be  drawn  in  by  hand.  If  the 
process  is  repeated  using  e"*"  =  30,  another  log-linear  function  will  result, 
and  the  reader  will  not  be  able  to  discern,  by  the  eye,  which  is  better;  that 
is  which  is  the  "right"  function,  for  the  data  points  will  appear  to  fit 
either  function  equally  well.  The  reader  is  then  presented  with  a  dilemma, 
since  the  inverse  slopes  of  the  respective  functions  will  give  different 
values  of  the  Karman  coefficient  k.  The  reader  may  refine  the  procedure  to 
account  for  the  wake  effect  by  selecting  only  those  points  in  the  lower  10  to 
20  percent  of  the  boundary  layer  for  finding  k  from  inverse  slopes.  The 
results  will  then  be  even  more  dismaying,  for  many  of  the  possible  tentative 
c"*"  values  will  lead  to  seemingly  good  fits,  and  diverse  k  values. 


Water  surface 


U 


Reference  level 


Virtual  origin  level 


Figure  2.6  :  Vixtual  origin  definition  sketch. 
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In  velocity  profile  measuring  techniques,  the  problem  may  be  attacked  by 
defining  the  elevation  of  each  measuring  point  relative  to  an  arbitrary 
elevation  presumed  to  be  near  the  virtual  origin;  the  plane  of  the  tops  of 
uniform  roughness  elements  is  an  example  of  a  convenient  reference  elevation. 
The  elevation  y  will  be  called  the  "position"  of  a  measuring  point,  to  be 
registered  during  data  acquisition,  and  the  real  distance  from  the  measuring 
point  to  the  virtual  origin  will  be  y  +  £  ,  where  €  is  a  virtual  origin 
correction. 


The  correctionn  e  also  has  a  dimensionless  form  €"*"  defined  by 

£    =    (2.6.1) 

so  that  a  "virtual  distance"  =  y  +  e  ,  and  its  correspondent  nondimensional 
form 

=  y+  +  €+  (2.6.2) 
can  be  defined,  as  well  as  a  new  ratios  A  and  ^  given  in  equations  (2.6.3) 
and  (2.6.4)  to  replace  eqs.  (2.5.8)  and  (2.5.9)  (Notice  that  A  =  A+  7^  ^  =  C+ 
and  similarly  for  p.): 

A  =  5Lj_l  =  (2.6.3) 
S  +  e 

fi  =  ^^  =  fi^  (2.6.4) 
k  +  € 

The  nondimensional  equations  of  section  2.5  are  hence  rewritten  in  terms  of 
virtiaal  distance  as: 

U"*"  =  s  2n(ri'^)  +  A  -  AU"^  +  sH  u(X^)  (2.6.5) 

AU"*"  =  s  fin(k'^+  e"^)  +  B  (2.6.6) 
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s  (ln(0^)  +  C  -  +  sn  u)(X^) 


(2.6.7) 


s  fin(5"^  +  c"*")  +  A  -  AU"*"  +  2sn 


(2.6.8) 


(2.6.9) 


n  =  0.5  [  /c(U^  -  A')  -  in(6'*'  +  e"*")  ] 


(2.6.10) 


The  problem  of  determining  an  accurate  estimate  of  e  (or  e"*")  has  proven  to 
be,  as  remarked  by  Perry  and  Joubert  (1963),  "one  of  the  most  difficult 
tasks".  They  developed  a  graphic  procedure  that  uses  a  mono tonic  curve  of 
best  fit  faired  by  eye  through  the  initial  U(y)  data  points  after  introducing 
a  tentative  value  of  e .  The  faired  curve  is  then  iteratively  corrected  by 
introducing  new  estimates  of  e  to  produce  a  family  of  nearly  straigth  lines 
(at  least  in  the  lower  portion  of  the  boundary  layer) .  The  idea  is  that  the 
line  associated  with  the  correct  e-value  will  lie  in  the  range  of  e-values 
where  the  inflection  direction  of  the  plotted  curves  is  seen  to  change .  They 
report  that  They  "after  much  experimenting...  found  that  the...  method, 
although  not  giving  the  precise  value  of  e,  locates  the  narrowest  range 
within  it  occurs". 

The  method  used  in  the  course  of  the  present  research  improves  that  of  Perry 
and  Joubert  (1963)  by  allowing  a  determination  of  c  with  precision  dependent 
only  upon  initial  data  accuracy,  by  using  regression  analysis  and  an 
iterative  method.  The  procedure  also  defines  a  distinction  between  the  inner 
logarithmic  and  outer  wake  regions.  It  is  fully  computational  and  does  not 
require  graphics ,  although  graphics  has  been  included  in  the  implementation 
anjn^ay  for  illustration  and  further  analytic  purposes. 
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The  procedure  defines  an  initial  arbitrary  Ae  =  1  nun.  increment,  as  well  as 
an  initial  value  e  =  Ae  (Actiially  equivalent  dimensionless  variables  are  used 
instead) .  Then  those  near-boundary  points  that  are  most  probably  in  the 
logarithmic  region  are  fitted  with  a  quadratic  polynomial  regression  of  IT*" 
against  fin(y'''  +  e"*") .  Next  e  is  incremented  in  Ac  and  a  new  quadratic 
regression  is  obtained.  The  procedure  is  repeated  until  the  regression 
coefficient  b2  corresponding  to  the  quadratic  term,  changes  in  sign.  The 
exact  value  of  e,  for  which  b2  =  0,  would  lie  between  its  previous  and  last 
value;  in  that  case  the  quadratic  regression  degenerates  to  a  linear 
regression.  To  actually  find  it,  the  change  of  sign  of  b2  is  used  as  an 
indication  to  reverse  and  refine  the  search  with  the  new  increment  being  Ae ' 
=  -0.4  Ac.  The  search  continues  tuning  up  the  value  of  e  until  Ae  falls 
below  a  selected  tolerance.  A  standard  error  of  estimate  o  is  also  found  for 
the  resulting  linear  regression,  upon  completion  of  the  iterative  procedure. 

Next,  another  point  of  higher  y  position  is  included  in  the  search  along  with 
the  preceding  points,  and  the  whole  procedure  is  repeated.  This  is  continued 
until  a  marked  increment  of  the  standard  error  of  estimate  a  indicates  the 
beginning  of  the  outer  region  (  or  wake  ) .  The  set  of  points  that  yield  the 
least  value  of  a  is  considered  to  pertain  to  the  inner  region.  For  this  set, 
the  Karman  coefficient,  the  intercept,  and  the  wake-strength  coefficients  are 
computed.  Hence  the  law  of  the  wall  is  determined,  and  by  subs traction,  the 
law  of  the  wake  is  computed. 

Figure  2.7  displays  seven  final  optimal  linear  regressions  obtained  by  using 
this  new  procedure  with  different  nvunbers  of  points  (from  4  to  11  points). 
Intermediate  quadratic  regressions  are  not  shown.     The  set  of  points  and 
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polynomial  regression  to  the  left  is  the  original  law  with  c  =  0.  For  each 
linear  regression,  the  graph  also  indicates  the  number  of  points  used,  and 
three  parameters:  VK  =  /c.  A,  and  E  =  c"^.  Whenever  the  outer  region  is 
reached,  the  inclusion  of  wake  points  produces  an  increase  of  the  slope  s 
hence  a  decrease  of  «,  and  a  decrease  of  A  (which  could  eventually  become 
negative).  If  all  the  wake  is  included,  the  wake  strength  becomes  null. 
These  are  misleading  results  produced  by  the  inclusion  of  the  wake.  That 
inclusion  and  thus  the  transition  from  logarithmic  to  wake  region,  is  located 
in  the  variation  of  «,  A  and  n  as  functions  of  h/S ,  where  h  is  the  thickness 
of  the  region  included  in  the  computations  (Figures  2.8  to  2.11),  mainly  in 
the  form  of  a  sharp  increment  of  e  (Figure  2.10). 
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Figure  2.7  :  Virtual  origin  search. 
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Figtire  2.8  :  Computed  Karman  coefficient  during  virtual  origin  search. 
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Figure  2.9  :  Computed  Intercept  during  virtual  origin  search. 
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Figure  2.10  :  The  virtual  origin  as  a  function  of  search-region  thickness. 
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Figure  2.11  :  Computed  wake  strength  coefficient  dtirlng  vlrttial  origin  search 
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When  the  probe  is  inserted  into  a  shear  flow,  the  effective  center  of  the 
Pitot  tube  is  displaced  from  its  geometrical  center  towards  the  region  of 
higher  velocity.  Close  to  the  bottom  of  the  flume  this  effect  is  maximum, 
producing  a  rise  in  the  effective  probe  position  y.  Since,  as  discussed  in 
section  2.6,  small  errors  in  the  estimation  of  y  or  e  distort  the  results 
sensibly,  particularly  for  impact  Pitot  tubes  of  relatively  large  diameter, 
this  "bottom  proximity  error"  should  be  corrected.  An  ample  review  of 
investigations  conducted  to  estimate  the  necessary  correction  was  done  by 
Daily  and  Hardison  (1964) .  Several  of  those  investigations  give  an  upwards 
displacement  of  0.18d  or  similar,  where  d  is  the  tube-orifice  diameter,  when 
the  tube  is  directly  on  the  bed. 

There  is  no  information  for  cases  in  which  the  tube  is  near  but  not  touching 
the  bed.  However,  the  effect  should  diminish  and  ultimately  dissapear  at 
some  distance  from  the  bottom  that  probably  depends  upon  the  diameter  of  the 
tube  and  the  boundary  layer  thickness.  A  bottom  correction  function  yc(y) 
should  be  asymptotic  to  the  maximum  correction  (0.18d)  at  0.5  d  from  the 
bottom  (tube  in  total  contact  with  the  bed)  and  to  zero  at  some  distance  y^ 
from  the  bottom.  Such  a  function  will  be  approximated  by  a  cubic  poljmomial. 
Lacking  more  information,  it  was  decided  to  define  ym  of  10.5  d,  i.e.  to 
assume  that  the  error  vanishes  at  a  distance  of  10  tube  diameters  above  the 
bed  (See  Figure  2.12). 

The  resulting  correction  function  that  should  be  added  to  the  measured  value 
y  is : 
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^  i-1 

y.^y)  =  .2    c  y  (2.7.1) 

c  1=1  1 

where  c.  =  0.00036/d2  ,        =  -0.00594/d  ,  c.  =  0.00567  ,  and  c,  =  0.1786  d  . 


y 


Figure  2.12  :  Sketch  of  definition  of  bottom-proximity  ftmction. 


The  presence  of  the  flume  walls  also  has  to  be  accounted  because  that  alter 
the  shear  distribution  across  most  of  the  flow  from  the  wall  towards  the 
center  of  channel.  Only  for  very  wide  channels  may  the  central  region  be 
considered  two  dimensional.  The  problem  is  aggravated  whenever  different 
roughness  is  used  on  the  bottom  while  maintaining  a  constant  wall  roughness 
as  is  common  in  flume  experiments . 

A  method  to  produce  a  side- wall  correction  was  originally  developed  by 
Johnson  (1942)  and  later  improved  by  Vanoni  and  Brooks  (1957) .  The  program 
developed  in  the  course  of  this  research  incorporates  this  method  in 
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automatic  fashion.  The  independent  variables  in  the  present  computational 
implementation  are  the  slope  of  the  energy  line  S,  the  temperature  T,  the 
acceleration  of  gravity  g,  the  discharge  Q,  the  cross-section  width  B  and 
depth  D. 

A  regression  polynomial  of  order  four  (  obtained  with  the  program  )  permits 
calculating  the  kinematic  viscosity  as  a  function  of  temperature  <ln(i/)  = 
P,,(T)  (The  standard  deviation  for  u  is  e^-^^26)  Global  parameters  for  the 
cross  section  including  area  0,  wetted  perimeter  x>  mean  velocity  V, 
hydraulic  radius  r,  shear  velocity  U*,  Darcy-Weisbach  friction  factor  f  and 
Reynolds  number  R,  are  obtained  as  usual  from: 

n    =  Bh 

X    =  B  +  2D 

V   =  Q/n 

r    =  fl/x 

U*  =  y(grS) 

f    =  8(U*/V)2 

R    =  UVr/u 

These  global  parameters  are  directly  computed  from  the  data. 

The  global  cross  section  is  considered  to  be  divided  into  two  sub-sections, 
namely  a  bed  sub-section  and  a  wall  sub-section  (the  latter  actually  formed 
by  two  parts,  one  next  to  each  wall).  The  bed  sub-section  produces  shear  on 
the  bed,  and  the  wall  sub-section  shear  on  the  walls.  The  internal  boundaries 
of  the  sub-sections  are  considered  surfaces  of  zero  shear.  Equations  2.7.2 
to  2.7.8  are  applied  to  each  sub- section  as  if  each  were  an  independent 
channel,  by  using  a  sub- index  b  (for  bed)  or  w  (for  wall)  in  each  case,  and 


(2.7.2) 
(2.7.3) 
(2.7.4) 
(2.7.5) 
(2.7.6) 
(2.7.7) 
(2.7.8) 
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fib  +  =  Roughness  is  homogeneous  in  each  section  although  different 
between  sections.  However,  velocity  is  assumed  to  be  the  same  V  =  V^j  =  V^. 
Furthermore,  Xh  ~  ^  Xw  ~  2D.     With  said  assxamptions  it  is  easy  to  show 

that : 

5^  =  5  (2.7.9) 

f  f 

w 


Since  the  ratio  R/f  can  be  computed  directly,  a  function  f  =  func(R/f)  will 
allow,  through  equation  (2.7.9),  obtaining  an  estimation  of  f^,  hence  of  R^,. 
The  procedure  is  a  little  tricky  here,  since  in  general  the  global  f  and  R 
itself  will  not  satisfy  this  relationship.  Such  a  function  is  available  in 
graph  form  in  Vanoni  and  Brooks  (1957)  as  obtained  from  a  similar  graph  of  f 
versus  R  for  the  Karman-Prandtl  resistance  equation  for  turbulent  flow  in 
smooth  pipes.  This  function  has  been  implemented  in  the  program  VELMEAS  as  a 
polynomial  regression  of  order  six  (with  a  standard  deviation  a  =  0.00030  on 
f ) ,     Hence  the  wall  parameters  are  succesively  computed: 

R 

f    =  func(  —  )  (2.7.10) 

W  £ 
W 

R    =  f    -  (2.7.11) 

W  W  f 

R  u 

r    =  —  (2.7.12) 
w  4v 

U*w  =  y(grwS)  (2.7.13) 


A  simple  additional  analysis  yield  the  equations  needed  to  compute  similar 
bed  parameters : 
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=  f  +  2  -(f  -  f  )  '  (2.7.14) 

b  B  ^ 


(2.7.15) 


U*b  =  yCgrbS)  (2.7.16) 

Finally  estimates  of  the  wall-  and  bed- shear  stress  ratios  to  the  over- all 
average  are  obtained  from: 


(2.7.17) 


r  r  f 

o 


(2.7.17) 


o 


Whenever  the  measurements  are  conducted  close  to  the  axis  of  the  channel,  the 
bed  shear  velocity  U*^  is  the  best  estimate  for  use  in  the  equations 
discussed  in  section  2.7  . 

2.8  Chaimel  Resistance 

An  estimate  of  the  Darcy-Weisbach  coefficient  f ,  for  the  purpose  of  obtaining 
a  reasonable  estimate  of  the  shear  velocity  u*  was  obtained  in  the  previous 
section.  However,  once  the  equations  for  the  distribution  of  velocity  and 
their  parameters  are  known,  a  more  consistent  value  of  f  for  the  measured 
profile  may  be  obtained. 
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By  using  the  mean  velocity  in  the  measured  vertical,  instead  of  the  cross- 
section  mean  V,  equation  (2.7.7)  is  here  rewritten: 

^=^^  (2.8.1) 

The  profile  mean  velocity       is  obtained  by  integrating  through  the  depth 


U  =  i 


U(y)  dy  (2.8.2) 

^t  •'o 

which  permits  the  evaluation  of  f  by  equation  (2.8.1).  If  y^^  is  defined  such 
that  Ua  =  U(ya)  and  defining  the  ratios  a  and  b  as 

^a 
a  =  — 


^t 


b  =  i 
^t 


(2.8.3) 


equation  (2.4.9)  may  be  evaluated  at  y^  resulting  in 

_i  =  i  fin(-^)  +  -  fin(a)  +  k  -  B  +  -  (^(-  )  (2.8.4) 
U ,       «        k     -    K  Kb 

and  from  eq. (2.8.1) 

1      1  .  7t 


2ni-)  +  D  (2.8.5) 
Jf      J8  K  k 

where  the  new  parameter  D  is  computed  from 

D  =  —  [  i  fin(a)  +  A  -  B  +  -  w(-  )   ]  (2.8.6) 
J8       K  Kb 

It  can  be  seen  that  the  shape  of  the  wake  modifies  the  intercept  but  not  the 
slope  in  a  log-  inverse- square- root  graph  of  f  related  to  y^-. 
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CHAPTER  3 


MEASUREMENTS  AND  AUTOMATED  ANALYSIS  RESULTS 
3.1  Survey  of  conducted  experiments 

A  total  of  70  experiments  were  conducted  in  the  laboratory  flume  described  in 
section  1.2.  The  first  12  experiments  were  conducted  while  developing  the 
program  VELMEAS  mainly  to  assess  the  various  measuring  devices  and  the 
program's  data  acquisition  and  analysis  routines.  Experiments  #  13  to  #  32 
were  done  with  the  "smooth"  bed  formed  by  the  painted  steel- sheet  of  the 
flume  bottom,  and  experiments  #  33  to  #  70  to  the  rough  bed  formed  by  lead 
balls.  All  experiments  consisted  of  the  measurement  of  the  vertical 
distribution  of  velocities  at  the  flume  axis  in  a  fixed  section,  with  the 
exception  of  experiments  #  27  to  #  32,  which  measured  horizontal  distribution 
of  velocities  at  approximately  80  %  and  20  %  of  the  flow  depth. 

After  the  initial  tests,  it  was  decided  to  mantain  the  depth  at  approximately 
one  tenth  of  the  width  to  minimize  wall  effects.  This  was  also  compatible 
with  the  requirement  of  establishing  a  uniform  flow.  The  discharge  was  then 
varied  from  experiment  to  experiment  in  the  range  allowed  by  the 
installation,  and  the  depth  and  slope  modified  accordingly  to  obtain  a  well- 
defined  uniform  flow  with  minimal  pertubations .  In  the  case  of  the  packed- 
ball  bed  the  depth  was  defined  as  the  vertical  distance  between  the  water 
surface  and  the  ball  top.    Measurements  were  also  refered  from  the  ball  top. 
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A  failure  in  the  analog- to-digital  converter  was  particular  annoying  because 
it  was  present  at  first  for  certain  range  of  frequencies  only.  Later  it 
extended  to  the  whole  range  of  frequencies.  By  inspecting  the  PDF  diagram  it 
was  found  that  experiments  1  to  16  should  be  discarded,  but  this  problem 
demostrated  the  uselfuness  of  the  PDF  in  assessing  the  readiness  of  the 
entire  system. 

Table  3.1  in  the  next  three  pages  contains  a  listing  of  conducted 
experiments,  with  indication  of  the  water  temperature,  the  depth,  the 
discharge  and  the  slope.  Appendix  D  contains  the  same  information  as 
originally  stated  by  the  operator  (and  subsequently  used  by  the  program 
VELMEAS  for  the  wall-correction  procedure)  in  different  units. 

The  following  notes  refer  to  observations  in  Table  3.1  succeeding, 

(1)  :  Original  smooth  bed  of  steel  sheet. 

(2)  :  Smoother  painted  steel  sheet 

(3)  :  Lost  measurements  because  damage  in  Analog- to-digital  signal  converter. 

(4)  :  Horizontal  velocity  profile  measurements.    The  position  y  is  given  in 

mm.   in  each  of  two  levels  corresponding  to  same  flow  conditions. 

(5)  :  Same  as  in  (4) 

(6)  :  Same  as  in  (4) 

(7)  :  Rough  bed  formed  by  laying  a  packed  layer  of  lead  balls. 

(8)  :  Lost  measurements  because  of  troubles  during  operation. 

(9)  :  These  are  part  of  a  same  profile.  Later  unified  in  file  sea6036. 

(10)  :  Conditions  in  the  upper  stilling  basin  too  rough  (discharge  too  high) . 

(11)  :  These  are  part  of  a  same  profile.  Later  unified  in  file  sea6067. 
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Table  3.1  :  Survey  of  experiments 


Experiment         Temperature    Depth      Discharge  Slope  Observations 

number  7t  Q  ^ 

(filename)  Celsius  D.        mm.  m3/s. 


1 

to  9 

(1) 

(3) 

10 

to  12 

(2) 

(3) 

13 

(sea6001) 

22. 

0 

52 

07 

0 

01281 

0 

00115 

(2) 

(3) 

14 

(sea6002) 

21. 

0 

59 

44 

0 

01455 

0 

00105 

(2) 

(3) 

15 

(sea6003) 

27. 

0 

57 

91 

0 

01446 

0 

00125 

(2) 

(3) 

16 

(sea6004) 

28. 

0 

63 

75 

0 

01607 

0 

001025 

(2) 

(3) 

17 

(sea6005) 

28. 

2 

62 

23 

0 

01603 

0 

00115 

(2) 

18 

(sea6006) 

27. 

5 

63 

25 

0 

01611 

0 

00110 

(2) 

19 

(sea6007) 

23. 

5 

63 

75 

0 

01760 

0 

00120 

(2) 

20 

(sea6008) 

24. 

5 

63 

25 

0 

01764 

0 

00140 

(2) 

21 

(sea6009) 

26. 

0 

61 

47 

0 

01433 

0 

00100 

(2) 

22 

(sea6022) 

26. 

8 

60 

71 

0 

01436 

0 

00105 

(2) 

23 

(sea6023) 

26. 

8 

54 

86 

0 

01240 

0 

00100 

(2) 

24 

(sea6024) 

26. 

6 

54 

36 

0 

01242 

0 

00110 

(2) 

25 

(sea6025) 

25. 

6 

54 

86 

0 

01019 

0 

00075 

(2) 

26 

(sea6026) 

26. 

2 

54 

36 

0 

01013 

0 

00075 

(2) 

27 

(sea6027) 

21. 

2 

61 

21 

0 

01458 

0 

00100 

(2) 

(4) 

y=12 

2 

28 

(sea6028) 

28. 

4 

60 

96 

0 

01460 

0 

00100 

(2) 

(4) 

y=49 

0 

29 

(sea6029) 

27 

4 

54 

10 

0 

01000 

0 

00085 

(2) 

(5) 

y=10 

82 

30 

(sea6030) 

25 

7 

54 

10 

0 

01000 

0 

00085 

(2) 

(5) 

y=43 

28 
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Table  3.1  :  Survey  of  experiments  (continued) 


Experiment         Temperature    Depth      Discharge  Slope  Observations 

number  ^  7t  Q  ^ 

(filename)  Celsius  D.        mm.  m3/s. 


31  (sea6031)  26.2  58.17  0.01762  0.00155 

32  (sea6032)  21.8  58.17  0.01760  0.00175 

33  (sea6033)  28.9  63.25  0.01181  0.00165 

34  (sea6034)  30.0  63.25  0.01192  0.00165 

35  (sea6035)  30.75  64.26  0.01208  0.00150 

36  (sea6036)  25.25  63.12  0.00719  0.00045 

37  (sea6037)  25.25  63.12  0.00719  0.00045 

38  (sea6038)  29.5  62.99  0.00719  0.00045 

39  (sea6039)  30.0  62.99  0.01016  0.00100 

40  (sea6040)  30.0  62.74  0.01016  0.00110 

41  (sea6041)  29.0  64.01  0.01437  ? 

42  (sea6042)  29.95  64.52  0.01437  0.00210 

43  (sea6043)  28.0  63.88  0.01437  0.00205 

44  (sea6044)  29.4  63.88  0.01437  0.00205 

45  (sea6045)  29.75  63.63  0.01607  0.00260 

46  (sea6046)  29.9  63.37  0.01607  0.00250 

47  (sea6047)  28.95  63.63  0.01760  0.00295 

48  (sea6048)  30.0  63.63  0.01760  0.00300 

49  (sea6049)  30.1  64.77  0.01901  0.00335 

50  (sea6050)  30.95  64.90  0.01901  0.00330 


(2)   (6)  y=11.63 

(2)   (6)  y=46.53 

(7)  (8) 

(7) 

(7) 

(7)  (9) 
(7)  (9) 
(7) 
(7) 
(7) 

(7)  (8) 

(7)  (8) 

(7) 

(7) 

(7) 

(7) 

(7) 

(7) 

(7) 

(7) 
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Table  3.1  :  Stirvey  of  experiments  (continued) 


Experiment         Temperature    Depth  Discharge 

number  T  Q 

(filename)  Celsius  D.        mm.  m3/s. 


Slope  Observations 
S 


51  (sea6051)  30.05  2.545  0.02033  0.003775  (7)  (10) 

52  (sea6052)  31.0  2.545  0.02033  0.003775  (7)  (10) 

53  (sea6053)  29.9  2.48  0.00719  0.00050  (7) 

54  (sea6054)  29.9  2.51  0.00719  0.000475  (7) 

55  (sea6055)  30.2  2.51  0.01016  0.00095  (7) 

56  (sea6056)  30.45  2.505  0.01016  0.00095  (7) 

57  (sea6057)  28.5  2.51  0.01245  0.001575  (7) 

58  (sea6058)  31.0  2.50  0.01245  0.00160  (7) 

59  (sea6059)  31.0  2.51  0.01437  0.002025  (7) 

60  (sea6060)  31.0  2.520  0.01437  0.00200  (7)  (8) 

61  (sea6061)  30.95  2.49  0.01437  0.00205  (7) 

62  (sea6062)  29.6  2.48  0.01607  0.00265  (7)  (8) 

63  (sea6063)  30.1  2.485  0.01607  0.002575  (7) 

64  (sea6064)  29.0  2.51  0.01760  0.00295  (7) 

65  (sea6065)  30.55  2.505  0.01760  0.00300  (7) 

66  (sea6066)  31.0  2.495  0.01901  0.00335  (7) 

67  (sea6067)  30.55  2.51  0.01901  0.003375  (7)  (11) 

68  (sea6068)  30.55  2.51  0.01901  0.003375  (7)  (11) 

69  (sea6069)  30.75  2.53  0.02033  0.00380  (7) 

70  (sea6070)  29.25  2.53  0.02033  0.00385  (7) 
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3.2.  Analysis  of  Results 


Results  obtained  from  two  similar  cases,  #17  and  #18  (see  Table  3.1)  exhibit 
difficulties  typically  found  in  these  kind  of  measurements.  Values  obtained 
closest  to  the  bottom  are  bound  to  greater  measurement  uncertainties  and 
errors  that  those  relatively  far  from  the  bed.  Figure  3.1  corresponding  to 
case  #17  documents  the  search  for  the  virtual  origin  using  an  increasing 
number  of  points  from  the  bottom.  Points  symbolized  by  a  square  correspond 
to  the  original  set  of  values  referred  to  the  reference  bottom  (in  this  case 
the  steel  sheet  forming  the  bed)  after  bottom  proximity  and  wall  corrections 
and  filtering  (theory  seen  in  Chapter  2,  program  implementation  in  Chapter 
4) .  Each  search  is  indicated  with  a  different  symbol  as  indicated  in  top 
left  of  the  graph.  In  figure  3.1  it  is  clear  that  the  closest- to- the-bed 
point  is  too  deviated  to  the  left.  As  a  result,  the  first  search,  conducted 
with  only  4  points  and  symbolized  with  a  circle,  find  the  best  linear  regres- 
sion for  an  excessively  large  e+  of  184.731  (also  indicated  in  the  graph  as 
E+) ,  which  should  be  compared  with  the  other  values  of  e+  found  for  searches 
with  5  up  to  10  points  in  the  same  graph,  with  c"*"  ranging  between  35  and  55. 

The  linear  regression  moves  consequently  and  excessively  to  the  right,  and 
then  the  Karman  coefficient  (indicated  as  VK  in  the  graph)  becomes  a  small  k 
of  0.164,  while  A'  (See  equation  2.4.14;  indicated  as  AP  in  the  graph) 
becomes  a  large  value  of  -19.2.  Including  more  points  rapidly  compensates 
the  influence  of  the  first  point,  although  does  not  eliminate  it.  The  Case 
#18,  corresponding  to  figure  3.2  exhibits  the  opposite  case,  since  the  first 
point  is  deviated  to  the  right.  The  Karman  coefficient  for  the  best  linear 
regression  result  overestimated  in  this  case,  in  contrast  to  previous  case. 
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Figure  3.2  :  Virtual-origin  search.  Case  ntmber  18, 
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The  sensitivity  of  the  parameters  to  measurement  errors  handicaps  the 
procedure  for  use  with  data  obtained  with  simple  equipment,  as  in  this  case, 
but  should  be  more  valuable  when  applied  to  LDA  obtained  data.  At  the  same 
time,  errors  like  the  present  in  both  cases  #17  and  #18  are  not  masked  by  the 
procedure  but  are,  on  the  contrary,  emphasized,  which  constitutes  a  reas- 
surance for  any  conclusion  the  analysis  may  lead  to.  As  will  be  demonstrated 
in  subsequent  analyses,  the  procedure  seirves  in  fact  to  establish  the  quality 
of  the  data  in  its  whole  extent,  and  in  consequence  the  reliability  of 
results  drawn  from  its  analysis.  In  this  sense,  it  may  serve  as  a  standard 
procedure  to  judge  velocity  distribution  data  quality. 

Case  #19  appears  not  to  exhibit  the  problem  found  in  the  previous  cases. 
Figures  3.3,  3.4  and  3.5  display  the  same  analysis  repeated  from  4  points  up 
to  21,  the  total  number  of  points  measured.  Figures  3.4  and  3.5  include 
entirely  all  misleading  searchs ,  since  the  wake  is  clearly  included  in  the 
distributions.  Nevertheless,  continuing  the  analysis  up  to  the  last  point 
serves  the  purpose  of  confirming  the  presence  of  inner  and  outer  zones .  In 
fact,  when  resulting  parameters  from  the  virtual  searchs  are  plotted  against 
the  logarithm  of  the  ratio  H/5 ,  being  H  the  layer  thickness  covered  by  each 
search,  as  in  Figure  3.6  for  the  case  #19,  those  parameters  vary  slowly 
(after  regression  analysis)  in  the  inner  layer,  while  changing  rapidly 
(without  physical  meaning  however)  in  the  outer  layer.  The  apparent 
smoothness  of  the  data  is  decreased  in  Figure  3 . 6  because  the  high 
sensitivity  of  the  procedure  much  amplifies  data  errors,  but  the  tendency  is 
clear.  The  third  point  (Fig. 3. 6)  in  particular,  which  corresponds  to  the 
inclusion  of  the  6th  data  point,  exhibits  the  largest  deviations.  The 
inclusion  of  the  7th  data  point  corrects  it,  because  those  two  points  have 
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also  reversed  and  largest  deviation  from  the  original  polynomial  regression 
(see  figure  3.5).  The  procedure  is  merely  amplifying  these  underlying  errors. 
The  better  the  original  data  set  fits  a  smooth  regression,  the  better  the 
virtual- origin- search- obtained  regressions  against  H/5  would  be. 

Figure  3.7  show  distributions  obtained  for  the  same  case  #19  by  using  a  null 
virtual-origin.  In  this  figure,  graph  a)  contains  the  whole  profile 
corresponding  to  equation  (2.5.11)  while  graph  c)  is  restricted  to  the  lower 
10  %  of  the  depth.  Graph  b)   is  the  velocity-defect  distribution  of  equation 

(2.5.15)  ,  and  graph  d)  displays  the  measured  wake  and  corresponding 
predictions  obtained  by  applying  the  Coles  equation  (2.4.6)  and  the  Finley 
equation  (2.4.7)  respectively.  The  shape  of  the  measured  wake  is  nearly  the 
same  as  that  the  given  by  the  two  predictors,  but  the  Coles  law  performs 
better.  The  measured  wake  is  obtained  after  obtaining  a  linear  regression  in 
graph  b)  which  intentionally  contains  points  in  the  inner  region  only.  From 
that  regression,  the  parameters  indicated  in  the  same  graph  are  computed,  in 
this  case,  k  =  0.428,  A'  =  A  -  Air*"  =  4.871  and  U  =  0.354.  The  wake  strength 
n  is  obtained  in  the  following  way:  First  the  logarithmic  law  of  the  wall  is 
extended  up  to  the  point  with  maximum  velocity;  then  the  departure  of  the 
"actual"  profile,  as  given  by  the  best  regression  polynomial  in  graph  a)  from 
the  velocity  predicted  by  the  logarithmic  law  is  equated  to  2n//c  in 
accordance   to   equation   (2.5.14).      This   is   equivalent   to   applying  equation 

(2.5.16)  to  obtain  the  value  of  11,  which  is  automatically  done  by  the 
program.  A  similar  procedure  may  be  used  in  graph  b) ,  in  agreement  with 
equation  (2.5.15).  In  this  case  #19,  Coles  law  adjusts  better  than  Finley 
law.  The  regression  shown  in  graph  c)  is  not  necessarily  the  linear  one. 
Instead,  a  best  regression  search,  as  measured  by  the  standard  error  of 
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estimate  has  been  conducted  using  different  polynomial  orders,  to  obtain  an 
indication  of  possible  presence  of  the  wake  or  eventually,  closer  to  the  bed, 
of  the  buffer  zone.  In  the  displayed  case,  a  quadratic  regression  was 
automatically  selected  by  the  program,  possibly  indicating  the  presence  of 
the  wake.  This  is  confirmed  by  graph  d) .  Hence  the  obtained  estimation  of 
the  Karman  coefficient  and  other  parameters  should  be  considered  as  biased. 
Nevertheless,  the  magnitude  of  the  wake  at  those  5  points  is  so  small  that 
its  influence  in  estimating  those  parameters  is  negligible,  given  measuring 
errors.  The  effect  of  a  deviation  in  the  point  measured  closest  to  the  bed, 
already  discussed  for  cases  #17  and  #18 ,  appears  even  more  clearly  in  these 
graphs ,  as  in  figures  3 . 8  and  3 . 9  corresponding  to  case  #17 . 

Figures  3.10,  3.11  and  3.12  correspond  to  case  #20.  The  original  distri- 
bution contains  some  irregularities,  particularly  an  unexpected  convexity  for 
values  of  InCy"*")  between  5.3  and  6.3  (Fig. 3. 10).  This  shows  up  more  clearly 
in  the  measured  wake  (Fig. 3. 11)  and  very  much  disrupts  the  functions  upon  H/5 
(Fig. 3. 12). 

Similar  results,  although  attenuated,  can  be  observed  in  Figures  3.13,  3.14 
and  3.15  corresponding  to  case  #22.  The  shape  of  the  measured  wake  in 
Fig. 3. 14. d)  differs  from  Coles'  and  Finley's  predictors,  but  the  Finley  law 
is  closer  to  measurement,  as  in  case  #20.  For  experiments  conducted  with  the 
"smooth"  bed,  neither  of  the  two  predictors  was  found  better  than  the  other, 
but  for  experiments  conducted  with  the  rough  bed,  the  Finley  law  was 
consistently  better  than  the  Coles  law.  The  best  agreement,  however,  was 
foxind  for  a  smooth-bed  case,  #26,  shown  in  Figures  3.16,  3.17  and  3.18. 
Figures  3.19  and  subsequent  ones  correspond  to  experiments  conducted  with  the 
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rough  bed  formed  by  lead  balls.  Case  #34  is  shown  in  Fig,  3,19,  3,20  and 
3.21.  Again  the  first  point  exhibits  a  larger  measurement  error,  as  clearly 
seen  in  Fig,  3. 21.  The  change  in  shape  of  the  wake  with  respect  to  the 
predictors  is  more  clear  than  in  smooth-bed  cases .  All  rough-bed  cases 
exhibited  the  same  trend  as  shown  in  Figures  3.22  to  3,99  for  the  cases 
#36+7,  #38,  #40,  #42,  #43,  #46  to  #53,  #55,  #57  to  #59,  and  #62  to  #70. 

The  use  of  a  virtual  origin  in  the  computations  does  provide  a  better 
definition  of  the  logarithmic  sublayer,  but  leaves  the  Karman  coefficient  and 
the  intercept  depending  upon  the  virtual  distance  e .  No  definition  of 
functional  relationships  for  k  and  A  relative  to  e  was  attempted  because  the 
present  measurements  appear  to  display  two  inconveniences;  first,  measure- 
ments were  not  made  close  enough  to  the  bottom  to  guarantee  the  exclusion  of 
the  wake,  which  is  essential  to  the  procedure;  second,  the  difficulties  of 
accurately  positioning  the  probe  at  the  bottom  produced  small  measuring  point 
errors  in  the  graphs,  which  would  strongly  affect  any  analysis  of  this  kind. 
It  is  clear  however,  that  the  inclusion  of  a  virtual  origin  produces  smaller 
values  of  Karman  coefficient  than  a  classical  computation  with  null  virtual 
distance.  As  indicated,  figure  3.7  and  similar  ones  obtained  with  null 
virtual  origin  include  the  value  of  Karman  coefficient,  intercept  and  wake 
strength,  computed  by  using  points  measured  in  the  lower  10%-of-the-depth 
zone.  Values  obtained  are  in  some  cases  very  large,  because  the  diameter  of 
the  probe  forced  a  relatively  large  distance  from  the  bed  even  for  the 
closest  point,  and  the  wake  appears  to  exist  in  this  lower- 10%  zone.  The 
effect  is  more  clear  for  the  rough-bed  cases,  were  the  wake  is  included  in 
all  measured  points.  The  mere  existence  of  a  logarithmic  zone  (at  least  one 
point  should  exist)  is  thus  put  in  doubt. 
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Figure  3.3  :  Virtual-origin  search.  Case  number  19. 
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Figure  3.4  :  Virtual-origin  search  continued.  Case  number  19, 
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Figure  3.5  :  Virtual-origin  search  continued.  Case  number  19. 
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origin,  d)  Wake  strength 
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Figure  3.7  :  Distributions   assuming  ntill  virtual      origin.    Case  number  19 
a)  Velocity  Profile,  b)  Velocity-Defect  distribution 
c)  Logarithmic  law  of  the  vail,  d)  Vake  functions. 
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Figure  3.8  :  Parameter  variation  vith  the  virtual-origin-search  thickness  H. 

Case  ntmber  17.  a)  Carman  coefficient,  b)  Intercept,  c)  Virtual 
origin,  d)  Wake  strength 
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Figure  3.9  :  Distributions   assuming  null  virtual      origin.    Case  number  17 
a)  Velocity  Profile,  b)  Velocity-Defect  distribution 
c)  Logarithmic  law  of  the  wall,  d)  Vake  functions. 
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Figure  3.10  :  Virtnial-origtn  search.  Case  number  20 
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Flgiire  3.11:  Distributions   assriming  null  virtual      origin.    Case  ntmber  20. 

a)  Velocity  Profile,  b)  Velocity-Defect  distribution 

c)  Logarithsiic  law  of  the  wall,  d)  Vake  functions. 
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Figure  3.12:  Parameter  -variation  vith  the  virtual-origin- search  thickness  H. 

Case  number  20.  a)  Kannan  coefficient,  b)  Intercept,  c)  Virtual 
origin,  d)  Vake  strength. 
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Figure  3.13  :  Virtual -origin  search.  Case  ntmber  22. 
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Figure  3.14:  Distributions  assuming  null  virtual     origin.    Case  number 
a)  Velocity  Profile,  b)  Velocity-Defect  distribution 
c)  Logarithmic  law  of  the  wall,  d)  ¥ake  ftmctions. 
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Figure  3.15:  Parameter  variation  vith  the  virtual-origin-search  thickness  H. 

Case  number  22.  a)  Karman  coefficient,  b)  Intercept,  c)  Virtual 
origin,  d)  ¥ake  strength. 
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Figure  3.16  :  Virtrual-origin  search.  Case  ntimber  26, 
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Figure  3.17:  Distributions   assuming  null  virinial      origin.    Case  number 
a)  Velocity  Profile,  b)  Velocity-Defect  distribution 
c)  Logarithmic  law  of  the  wall,  d)  Vake  functions. 
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Figxire  3.18:  Parameter  variation  vith  the  virtual-origin- search  thickness  H. 

Case  niimber  26.  a)  Kannan  coefficient,  b)  Intercept,   c)  Virtual 


origin,  d)  Vake  strength. 
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Figtire  3.19  :  Virtual-origin  search.  Case  number  34. 
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Figure  3.20:  Distributions   asstming  null  virtual      origin.    Case  number 
a)  Velocity  Profile,  b)  Velocity-Defect  distribution 
c)  Logarithmic  law  of  the  wall,  d)  Wake  functions. 
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Figure  3.21:  Parameter  variation  vlth  the  vlrtoal-orlgln-search  thickness  H. 

Case  number  34.  a)  Karman  coefficient,  b)  Intercept,  c)  Virtual 
origin,  d)  ¥ake  strength. 
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Figure  3.22  :  Virtual-origin  search.  Case  number  36+7, 
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Figure  3.23:  Distributions  assuming  null  virtual     origin.   Case  number  36 
a)  Velocity  Profile,  b)  Velocity-Defect  distribution 
c)  Logarithmic  law  of  the  wall,  d)  ¥ake  functions. 


77 


I 


Figure  3.24:  Parameter  variation  with  the  virtual-origin-search  thickness  H. 

Case  number  36+7.  a)  Karman  coefficient,  b)  Intercept, 
c)  Virtual  origin,  d)  Wake  strength. 
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Flgtire  3.25  :  Virtnial- origin  search.  Case  number  38, 
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Figure  3.26:  Distributions   asstming  null  virtual      origin.    Case  number  38 

a)  Velocity  Profile,  b)  Velocity-Defect  distribution 

c)  Logaritbmic  lav  of  the  vail,  d)  Vake  functions. 


80 


I 


s 


■»A  +Sd3 
Figure  3.27:  Parameter  variation  vith  the  virtual-origin-searcli  thickness  H. 

Case  number  38.  a)  Karman  coefficient,  b)  Intercept,  c)  Virtual 

origin,  d)  Vake  strength. 
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Figure  3.28  :  Virtual -origin  search.  Case  ntnaber  40. 
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Figure  3.29:  Distributions   assuming  null  virtual      origin.    Case  number  40 
a)  Velocity  Profile,  b)  Velocity-Defect  distribution 
c)  Logarithmic  law  of  the  wall,  d)  Wake  functions. 
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Case  number  40.  a)  Karman  coefficient,  b)  Intercept,  c)  Virtual 


origin,  d)  Wake  strength. 
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Figtire  3.31  :  Virtual-origin  search.  Case  number  42, 
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Figure  3.32:  Distributions   assuming  null  virtual      origin.    Case  number 
a)  Velocity  Profile,  b)  Velocity-Defect  distribution 
c)  Logarithmic  lav  of  the  vail,  d)  Vake  functions. 
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Figure  3.33:  Parameter  variation  vith  the  virtual-origin-search  thickness  H. 

Case  ntmber  42.  a)  Elarman  coefficient,  b)  Intercept,  c)  Virtual 
origin,  d)  Vake  strength. 
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Figtire  3.34  :  Virtual-origin  search.  Case  number  43, 
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Figure  3.35:  Distributions  assuming  null  virtual      origin.    Case  nuoiber  43, 
a)  Velocity  Profile,  b)  Velocity-Defect  distribution 
c)  Logarithmic  lav  of  the  wall,  d)  Wake  fimctions. 
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Figure  3.36:  Parameter  variation  with  the  virtual-origin-search  thickness  H. 

Case  number  43.  a)  Karman  coefficient,  b)  Intercept,  c)  Virtual 
origin,  d)  Vake  strength. 
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Figure  3.37  :  Vlrtnial-orlgln  search.  Case  nxnaber  45. 
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Figtire  3.38:  Distributions   assttming  null  virtual      origin.    Case  number  45 
a)  Velocity  Profile,  b)  Velocity-Defect  distribution 
c)  Logarithmic  lav  of  the  vail,  d)  Vake  functions. 
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Figure  3.39:  Parameter  variation  with  the  virtual-origiix-search  thickness  H. 

Case  ntimber  45.  a)  Karman  coefficient,  b)  Intercept,  c)  Virttial 

origin,  d)  Vake  strength. 
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Figure  3.40  :  Virtual-origin  search.  Case  number  46. 
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Figure  3.41:  Distributions   asstming  null  virtual      origin.    Case  number  46 
a)  Velocity  Profile,  b)  Velocity-Defect  distribution 
c)  Logarithmic  lav  of  the  wall,  d)  Wake  functions. 
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Figure  3.42:  Parameter  variation  with  the  virttial-origin-search  thickness  H. 

Case  number  46.  a)  Karman  coefficient,  b)  Intercept,  c)  Virtual 
origin,  d)  Wake  strength. 
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Figure  3.43  :  Vixtnial -origin  search.  Case  ntimber  47. 
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Figure  3.44:  Distributions   asstming  ntill  virtual      origin.    Case  number 
a)  Velocity  Profile,  b)  Velocity-Defect  distribution 
c)  Logarithmic  lav  of  the  wall,  d)  Wake  functions. 
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FigTire  3.45:  Parameter  variation  vith  the  virtual-origin- search  thickness  H. 

Case  number  47.  a)  Karman  coefficient,  b)  Intercept,  c)  Virt\ial 
origin,  d)  Vake  strength. 
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Figure  3.46  :  Virtnial-origin  search.  Case  namber  48 
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Figure  3.47:  Distributions   assuming  null  virtual      origin.    Case  number  48. 
a)  Velocity  Profile,  b)  Velocity-Defect  distribution 
c)  Logarithmic  law  of  the  wall,  d)  Vake  functions. 
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Figure  3.48:  Parameter  variation  vlth  the  vlrtual-orlgln-search  thickness  H. 

Case  ntimber  48.  a)  Kanoan  coefficient,  b)  Intercept,  c)  Virtual 
origin,  d)  ¥ake  strength. 
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Figure  3.49  :  Virttial- origin  search.  Case  number  49. 
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Figure  3.50:  Distributions   assuming  ntill  virtual      origin.    Case  mmber  49 
a)  Velocity  Profile,  b)  Velocity-Defect  distribution 
c)  Logarithmic  law  of  the  wall,  d)  Wake  functions. 


104 


I 


I  1  1  — r-  1-',  I  1  1  \  

OS'O  OhO  0£-0  02-0  01  "0       Oi*l8£       WSOt       S8"i£2       £6'S9l  OO'hS 

•y'A  ♦Sd3 


Figure  3.51:  Parameter  variation  with  the  vixtnal-origin-search  thickness  H. 

Case  ntmaber  49.  a)  Karman  coefficient,  b)  Intercept,  c)  Virtual 
origin,  d)  Wake  strength. 
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Figiire  3.52  :  Virtxial -origin  search.  Case  number  50. 
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Distributions   assuming  null  virtual      origin.    Case  number 
a)  Velocity  Profile,  b)  Velocity-Defect  distribution 
c)  Logarithmic  law  of  the  wall,  d)  Wake  functions. 
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Figure  3.54:  Parameter  variation  with  the  virtual -origin- search  thickness  H. 

Case  ntimber  50.  a)  Karman  coefficient,  b)  Intercept,  c)  Virtual 
origin,  d)  ¥ake  strength. 
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Figxire  3.55  :  Virtnial-origin  search.  Case  number  51. 
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e  3.56:  Distributions   assuming  nxill  virtual      origin.    Case  number 
a)  Velocity  Profile,  b)  Velocity-Defect  distribution 
c)  Logarithmic  law  of  the  wall,  d)  Wake  fxmctions. 
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Figure  3.57:  Parameter  variation  vith  the  virtual-origin-search  thickness  H. 

Case  number  51.  a)  Karman  coefficient,  b)  Intercept,  c)  Virtrial 
origin,  d)  Wake  strength. 
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Figure  3.58  :  Virtual-origin  search.  Case  number  52. 
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Figure  3.59:  Distributions   assTnaing  null  virtnial      origin.    Case  number  52 

a)  Velocity  Profile,  b)  Velocity-Defect  distribution 

c)  Logarithmic  law  of  the  wall,  d)  ffake  functions. 
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Figure  3.60:  Parameter  variation  vlth  the  vlrtual-orlgin-search  thickness  H. 

Case  ntimber  52.  a)  Karman  coefficient,  b)  Intercept,  c)  Virtual 
origin,  d)  Vake  strength. 
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Figure  3.61  :  Virtual-origin  search.  Case  number  53. 
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e  3.62:  Distributions   assximing  niill  virtual      origin.    Case  namber 
a)  Velocity  Profile,  b)  Velocity-Defect  distribution 
c)  Logarithmic  law  of  the  wall,  d)  ¥ake  ftmctions. 
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Figure  3.63:  Parameter  variaticm  with  the  virtnal-origin-search  thickness  H. 

Case  ntimber  53.  a)  Elarman  coefficient,  b)  Intercept,  c)  Virttial 
origin,  d)  Wake  strength. 
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Figure  3.64  :  Virttial-origin  search.  Case  number  55, 
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Figure  3.65:  Distributions   assuming  null  virtual      origin.    Case  number  55 
a)  Velocity  Profile,  b)  Velocity-Defect  distribution 
c)  Logarithmic  law  of  the  vail,  d)  ¥ake  functions. 
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Figure  3.66:  Parameter  variation  vith  the  virtual-origin- search  thickness  H. 

Case  number  55.  a)  Karman  coefficient,  b)  Intercept,  c)  Virtual 
origin,  d)  Vake  strength. 
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Figtire  3.67  :  Virtual -origin  search.  Case  nxmber  57, 
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Flgxire  3.68:  Distributions   asstiming  null  virtual      origin.    Case  number  57 
a)  Velocity  Profile,  b)  Velocity-Defect  distribution 
c)  Logarithmic  law  of  the  vail,  d)  Vake  functions. 


122 


I 


■>I'A  +Sd3 


Figure  3.69:  Parameter  variation  vith  the  virtual-origin-scarch  thickness  H. 

Case  number  57.  a)  Karman  coefficient,  b)  Intercept,  c)  Virtual 
origin,  d)  Fake  strength. 
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Figxire  3.70  :  Virtual-origin  search.  Case  number  58, 
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Figure  3.71:  Distributions   assuming  null  virtual      origin.    Case  number  58 
a)  Velocity  Profile,  b)  Velocity-Defect  distribution 
c)  Logarithmic  law  of  the  wall,  d)  Wake  functions. 
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Figiire  3.72:  Parameter  variation  with  the  vixtual-origln- search  thickness  H. 

Case  number  58.  a)  Karman  coefficient,  b)  Intercept,  c)  Virtual 
origin,  d)  Vake  strength. 
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Figure  3.73  :  Virtual-origin  search.  Case  niimber  59 
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Figiire  3.74:  Distributions   assuming  null  virtual      origin.    Case  mmber  59. 
a)  Velocity  Profile,  b)  Velocity-Defect  distribution 
c)  Logarithmic  lav  of  the  wall,  d)  Wake  functions. 
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3.75:  Parameter  variation  vith  the  virtual-origin-search  thickness  H. 

Case  ntmber  59.  a)  Karman  coefficient,  b)  Intercept,  c)  Virtual 
origin,  d)  Vake  strength. 
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Figure  3.76  :  Virtual-origin  search.  Case  ntimber  62. 
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Figure  3.77:  Distributions   asstming  null   virtual      origin.    Case   number  62. 
a)  Velocity  Profile,  b)  Velocity-Defect  distribution 
c)  Logarithmic  law  of  the  wall,  d)  Wake  fimctions. 


131 


I 


s  s 


Figure  3.78:  Parameter  variation  vith  the  virtnal-origin- search  thickness  H. 

Case  number  62.  a)  Karman  coefficient,  b)  Intercept,  c)  Virttial 
origin,  d)  Wake  strength. 
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Figure  3.79  :  Virtual-origin  search.  Case  number  63 


133 


I 


Figure  3.80:  Distributions   assuming  null  virtual      origin.    Case   mmber  63. 
a)  Velocity  Profile,  b)  Velocity-Defect  distribution 
c)  Logarithmic  law  of  the  wall,  d)  ¥ake  fxmctions . 
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Figtire  3.81:  Parameter  variation  with  the  vlrtual-origin-scarch  thickness  H. 

Case  number  63.  a)  Karman  coefficient,  b)  Intercept,  c)  Virtual 
origin,  d)  ¥ake  strength. 
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Figure  3.82  :  Virtnial-origin  search.  Case  ntimber  64, 
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Figure  3.83:  Distributions   asstnuing  ntill  virtual      origin.    Case  number 
a)  Velocity  Profile,  b)  Velocity-Defect  distribution 
c)  Logarithmic  law  of  the  wall,  d)  ¥ake  ftmctions. 
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origin,  d)  ¥ake  strength. 
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Figure  3.85  :  Virtual-origin  search.  Case  number  65, 
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Figure  3.86:  Distributions  assuming  null  virtual  origin.  Case 
a)  Velocity  Profile,  b)  Velocity-Defect  distribution 
c)  Logarithmic  lav  of  the  vail,  d)  ¥ake  functions. 
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Figure  3.87:  Parameter  variation  with  the  virtual-origin-search  thickness  H. 

Case  ntimber  65.  a)  Karman  coefficient,  b)  Intercept,  c)  Virtual 

origin,  d)  Wake  strength. 
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Figure  3.88  :  Virtual-origin  search.  Case  ntimber  66. 
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Figure  3.89:  Dist:ributlons   asstimiiig  null  virtual      origin.    Case  number  66. 

a)  Velocity  Profile,  b)  Velocity-Defect  distribution 

c)  Logaritbmic  law  of  the  wall,  d)  Vake  functions. 
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Figure  3.90:  Parameter  variation  vith  the  virtual-origin- search  thickness  H. 

Case  nixmber  66.  a)  Karman  coefficient,  b)  Intercept,  c)  Virtual 
origin,  d)  Vake  strength. 
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Figure  3.91  :  Virtnial- origin  search.  Case  nvmber  67+8, 
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Figiire  3.92:  Distributions  asstiming  null  virtual     origin.   Case  number  67+8. 
a)  Velocity  Profile,  b)  Velocity-Defect  distribution 
c)  Logarithmic  law  of  the  wall,  d)  ¥ake  functions. 


ooe-g 


098'^-      0O8"E^-  OSB'E^ 
dV 


002 

Figure  3. 


ooe'o 


000  0 


OOE'O 


000*0'    ooc'TBT     ofir'Ere     ooB'cdz  oaz'i 

+Sd3 


001 -oZ- 


93:  Parameter  -variation  with  the  virttial-origin- search  thickness  H. 
Case  number  67+8.  a)  Karman  coefficient,  b)  Intercept, 
c)  Virtxial  origin,  d)  Vake  strength. 
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Figure  3.94  :  Virtual-origin  search.  Case  nximber  69. 
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Figure  3.95:  Distributions  assuming  null  virtual      origin.    Case  number 
a)  Velocity  Profile,  b)  Velocity-Defect  distribution 
c)  Logarithmic  law  of  the  wall,  d)  Wake  ftmctions. 


Figtire  3.96:  Parameter  variation  with  the  virtual-origin-search  thickness  H. 

Case  number  69.  a)  Taimsm  coefficient,  b)  Intercept,  c)  Virtaal 


origin,  d)  Vake  strength. 
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Figure  3.97  :  Virtxial-origin  search.  Case  number  70. 
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Figure  3.98:  Distributions   assuming  null  virtual      origin.    Case  number 
a)  Velocity  Profile,  b)  Velocity-Defect  distribution 
c)  Logarithmic  lav  of  the  wall,  d)  Vake  functions. 
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Figure  3.99:  Parameter  variation  vith  the  -virtual-origin- searcli  thickness  H. 

Case  number  70.  a)  Karman  coefficient,  b)  Intercept,  c)  Virtual 
origin,  d)  Vake  strength. 


153 


I 


CHAPTER  4 


DESCRIPTION  OF  THE  PROGRAM  ''VETJ4F.AS"  nKVELOPED 
4.1.  Introduction 

The  program  VELMEAS  (VELocity  MEASurements)  has  been  prepared  for  the  purpose 
of  collecting  and  analysing  samples  produced  in  voltage  form  by  means  of  an 
instrument  of  any  kind.  That  instrximent  might  commonly  consist  of  a  Pitot 
tube  connected  to  a  pressure  transducer,  a  hot  film  anemometer  probe  attached 
to  a  proper  device,  or  a  laser-doppler  anemometer  system. 

The  program  can  also  be  used  to  collect  and  analyse  any  kind  of  random 
signals  and  be  expanded  with  relative  ease,  because  the  tasks  are  separated 
in  Main-  and  Sub-Menus. 

In  its  present  version,  data  from  only  one  channel  can  be  collected  and 
analysed  at  a  time.  An  extension  of  the  program  for  use  with  a  large  number 
of  channels  under  simultaneous  operation  has  been  contemplated  in  the 
structure  of  the  program  however,  to  facilitate  further  developments.  Since 
the  program  makes  extensive  use  of  graphics  and  regression  analysis,  the 
routines  that  perform  these  tasks  were  written  in  the  most  general  fashion, 
forming  a  good  base  for  future  enhancements . 

The  program  has  been  written  in  conversational  fashion,  with  the  user 
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selecting  tasks  during  execution.  The  source  code,  written  in  FORTRAN  IV  and 
reproduced  in  Appendix  A,  contains  a  profusion  of  comment  cards  which,  along 
with  this  Chapter  and  the  User  Manual  (Chapter  5) ,  would  facilitate  future 
developments  that  other  researchers  may  require. 

4.2.  Portability 

To  test  portability,  the  program  has  been  installed  in  two  different  machine 
environments.  It  was  first  implemented  at  the  USDA  National  Sedimentation 
Laboratory  on  a  MODCOMP  Classic  computer  and  attached  Hewlett-Packard  7220 
plotter  and  analog- to- digital  converter.  There  the  program  was  compiled  in 
MODCOMP  FORTRAN  IV  language  and  the  plotting  library  used  was  the  Hewlett- 
Packard  HP-ISSP.  Then  the  program  was  implemented  at  The  University  of 
Mississippi  on  an  AMDAHL  V-8/470  computer  running  an  IBM  CP/CMS  operating 
system  (thus  compatible  to  IBM  mainframes)  an  attached  Tektronix  4612 
hardcopier,  a  Tektronix  4662  multi-pen  plotter,  and  a  Versatec  (Hardcopier) 
plotter.  Graphics  perfomance  was  also  tested  in  a  Tektronix  4112-A  Graphic 
terminal.  In  this  implementation  the  program  was  compiled  in  IBM  VS  FORTRAN 
and  the  plotting  library  used  was  the  Calcomp  Model  #763  software.  When 
using  the  Tektronix  terminal,  it  is  necessary  to  use  routines  which  are  part 
of  the  Terminal  Control  System  of  the  Tektronix  Graphics  Package  and  commands 
specific  to  each  terminal.  For  both  Tektronix  and  Versatec  plotters, 
execution  files  written  in  CMS  are  necessary.  They  are  listed  in  the 
Appendix  B. 

A  few  instructions  differ  in  both  versions  but  are  clearly  identified  in  the 
program  by  comment  cards  beginning  with  "C:::::".  Since  no  analog- to-digital 


155 


converter  was  available  in  the  AMDAHL  environment,  the  corresponding  version 
does  not  contain  the  data  adquisition  ANLOGO  subroutine.  Apart  from  these 
minor  differences,  the  analysis  was  made  on  both  computers  using  all  afore- 
mentioned graphic  devices  without  difficulty.  This  establishes  the  general 
portability  of  the  program. 

4.3.  The  Main  Program 

The  Main  program  manages  the  subroutines ,  but  also  does  some  tasks ,  including 
Menu  operations  and  transformations  of  voltage  to  velocities  (or  other 
physical  variables)  through  an  appropiate  formula.  It  also  prepares  a  table 
on  File  number  14  (FN14)  where  all  statistical  variables  are  stored  for 
further  analysis.  That  table  can  grow  through  successive  runnings  of  the 
program  because  new  values  are  added  to  the  end  of  the  table  for  different 
probe  positions.  An  option  allows  erasing  previous  records.  This  is  useful 
while  checking  the  state  of  the  experiment  in  progress  because  definitive 
readings  can  be  recorded  on  cleared  files.  Other  options  available  are 
explained  further  in  Chapter  5  (User  Manual) .  The  program  operates  in 
conversational  fashion  using  an  input  file  KI5  and  an  output  file  K03  (number 
5  and  3  in  MODCOMP  version  and  number  6  and  6  in  IBM  version,  respectively)  , 
both  defined  for  the  terminal  device  and  subsequently  jointly  referred  as  the 
terminal  screen.  They  are  used  not  only  in  the  Main  program  but  in 
subroutines,  as  required  by  the  procedure.  Frequently,  the  output  is 
simultaneously  sent  to  the  file  number  12  (FN12)  for  documentation  and 
further  analysis.  This  file  FN12  is  used  elsewhere  in  the  program  to  record 
results  of  the  analysis  in  tabulated  form.  Hence  it  contains  a  story  of  the 
entire  procedure . 
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The  Main  program  also  clears  or  optionally  protects  from  clearing  the  files 
FN12  and  FN14.  It  initializes  (when  new)  the  file  FN14.  It  calls  the 
appropiate  analysis  mode  and/or  data  collecting  through  the  appropiate 
options  contained  in  a  "Main  Menu"  (  See  5.2  ). 

4.4.  Data  Acquisition 

Random  signals  are  obtained  from  an  analog  voltage  output  and  transmitted  by 
an  analog- to-digital  converter.  The  task  is  performed  by  subroutine  ANLOGO. 
This  subroutine  was  previously  available  as  a  separate  data  acquisition 
program  at  the  USDA  Sedimentation  Laboratory  but  has  been  slightly  modified 
for  this  program.  In  this  version  it  computes  the  minimum  and  maximum  values 
(in  Volts)  found  through  the  collecting  process,  which  are  needed  for  other 
subroutines.  The  cited  subroutine  is  machine- dependent  and  contains  some 
parts  written  in  assembler  language.  No  large  array  is  necessary,  for  values 
are  taken  in  packs  of  32  and  immediately  stored  in  file  number  2  (FN2) 
defined  on  a  peripherial  device  (commonly  a  hard  disc  and  eventually  a  tape) . 
Other  parts  of  the  program  act  in  a  similar  way,  reading  and  computing  the 
original  data  in  packs  of  32.  ANLOGO  also  uses  the  File  Number  1  (FNl)  as 
required  by  the  analogic-digital  converter.  FN2  will  contain  all  the 
voltages  (samples)  read  at  the  last  probe  positioning.  A  new  sampling  will 
erase  the  values  recorded  in  the  previous  one.  This  avoid  the  generation  of 
an  excessively  large  file,  since  many  positions  may  be  sampled  in  a  single 
application,  each  position  requiring  tens  of  thousands  of  samples.  Before 
collecting  data  in  a  new  position,  the  statistical  analysis  is  made,  thus 
eliminating  the  need  of  further  recording  of  the  original  values . 
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4.5.  Statistical  Analyses 


Subroutine  STATU,  called  by  the  Main  program,  makes  basic  statistic  analyses 
and  helps  establish  the  readiness  of  the  system  for  measurements.  It 
computes  the  Mean  and  the  Standard  Deviation,  and  obtains  the  Probability 
Distribution  of  Frequencies  (PDF)  of  the  original  signals  sampled  or  of  their 
converted  (in  the  MAIN  program)  values.  It  also  displays  on  the  terminal 
screen  these  values  and  their  PDF  and  writes  this  information  in  FN12.  This 
is  done  in  text  mode  to  allow  the  use  of  non-graphic  terminals,  since  the  PDF 
permits  the  detection  of  oscillations,  instabilities  and  other  perturbations. 
Hence  many  operating  characteristics  of  the  flume  or  other  physical 
environment  under  research  can  be  checked  on  the  terminal  screen  before  the 
actual  data  acquisition  begins.  The  readiness  of  the  system  for  the 
measurements  can  in  this  way  be  verified. 

For  instance,  when  dealing  with  open  channel  flows,  a  positive  skewness 
should  be  expected,  according  to  experience,  with  a  velocity  measuring  probe 
close  to  the  channel  bottom,  and  in  any  case  only  one  peak  should  be  present 
in  the  diagram.  The  signal  PDF  diagram  is  automatically  scaled  (and  the 
scale  indicated)  in  such  a  way  to  occupy  the  whole  screen  width  of  80  columns 
to  better  show  its  features  (See  example  in  section  4.9).  It  also  is 
normalized  in  such  a  way  that  its  integral  has  the  value  one.  Also,  the 
normalized  frequencies  are  tabulated  against  values  (in  Volts). 

Subroutine  STATI2  ,  called  by  the  Main  program,  makes  further  statistical 
analysis.  It  uses  the  previously  found  PDF  to  compute  the  Mode,  Skewness  and 
Kurtosis.     To  accomplish  this  in  the  most  objective,  efficient  and  accurate 
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way,  no  fitting  of  theoretical  distributions  is  done.  Instead,  the  first  to 
fourth  moments  about  the  zero  are  computed  in  a  unique  loop  over  the 
collected  values.  Then  the  moments  about  the  mean  are  obtained  as  functions 
of  the  former  about  the  zero,  the  Shepard  corrections  are  introduced,  and 
Beta  and  Gamma  parameters  computed  (See  example  in  section  4.9  ). 

Finally  Skewness  and  Kurtosis  are  computed  as  fxinctions  of  the  moments  about 
the  mean.  The  sign  of  the  skewness  is  determined  by  the  relative  position  of 
the  median  with  reference  to  the  mean  instead  of  the  mode,  because  this  gives 
a  more  reliable  determination  of  that  sign,  not  being  mostly  influenced  by 
local  peaks  as  the  mode  is. 

4.6  Regression  Analyses 

Function  REGREl,  called  by  several  subroutines  obtains  an  N-order  polynomial 
regression  on  M  data  points  in  X,Y  arrays.  The  function  name  returns  the 
standard  error  of  estimate.  The  regression  intercept  and  coefficients  are 
returned  as  arguments.  The  procedure  involves  solving  a  system  of  equations 
with  N  unknowns,  a  task  performed  by  Function  SIMUL,  which  utilizes  the 
Gauss- Jordan  reduction  method,  including  a  maximxjm  pivoting  strategy. 
Values  of  the  regression  are  subsequently  obtained  by  systematically  using 
the  Function  FREGl,  which  utilizes  Horner's  rule  to  optimize  computational 
time.  The  codes  for  these  three  subroutines  were  taken  with  few  modific- 
ations from  the  text  of  Carnahan  et  al  (1969). 

Subroutine  BSTREG,  called  by  several  other  subroutines,  conveniently  scales  a 
set  of  variables  (by  applying  logarithms,  for  instance)  and  proceeds  by 
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finding  succesive  polynomial  regressions  (by  calling  REGREl)  from  the  order  1 
up  to  a  maximum  order  NMX.  That  regression  having  the  least  standard 
deviation  is  selected  as  the  best,  and  its  coefficients  returned.  After  some 
tests  a  value  of  NMX  =  6  was  fixed  based  on  the  fact  that  larger  values  are 
not  only  of  little  practical  value  but,  in  present  experiments,  may  be 
reflecting  random  variations. 

Subroutine  REGFAC,  called  by  the  Main  program,  is  a  regression  facility 
incorporated  into  the  program  to  serve  as  an  auxiliary  to  further  analysis  by 
the  investigator.  The  user  may  enter  a  nvunber  of  data  pairs  when  prompted  at 
the  terminal  screen,  and  select,  from  a  limited  number  of  options,  a 
particular  scaling  in  terms  of  logarithms.  Then  subroutine  BSTREG  is  called 
to  obtain  a  best  fit.  For  instance,  it  was  used  to  obtain  a  polynomial 
regression  of  viscosity  as  a  function  of  temperature.  At  present,  it  does 
not  include  a  plotting  facility.  It  would  be  relatively  easy,  by  using  a 
number  of  other  routines  included  in  the  program,  to  expand  this  facility 
into  an  additional  powerful  tool  for  analysis  and  documentation. 

4.7  Boundary  Layer  Analyses 

Subroutine  DISTRI  is  the  only  subroutine  called  by  the  Main  program  that  has 
been  written  for  the  sole  purpose  of  investigating  steady- state  turbulent 
boundary  layers  in  a  laboratory  flume  (together  with  all  subroutines  it 
calls).  Its  purpose,  in  contrast  with  previous  pointwise  statistical 
subroutines,  is  to  study  distributions  of  velocities  across  the  boundary 
layer.  It  does  some  tasks  by  itself,  including  rearranging  data  points  from 
bottom  to  surface,  correcting  for  bottom  proximity  (corrected  values  are 
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printed  in  output  file  FN12,  section  4.10),  finding  the  maximum  or  reference 
velocity,  estimating  the  boundary  layer  thickness  as  corresponding  with  the 
maximum  velocity,  and  filtering  the  data.  It  also  calls  several  other 
important  subroutines . 

A  best  polynomial  regression  fitting  is  obtained  by  DISTRI,  after  bottom- 
proximity  correction,  by  calling  the  auxiliary  subroutine  BSTREG  (u  vs. 
ln(y)).  Then,  by  trial  and  error,  the  boundary  layer  thickness  and  the 
maximum  velocity  are  found.  These  often  correspond  to  the  surface  level  in  a 
flume.  Some  data  points  can  contain  errors  due  to  mishandling  of  flume 
operation  or  some  other  practice  that  deviates  from  specified  experimental 
conditions.  For  this  reason,  the  aforementioned  filtering  procedure  is 
carried  out  as  follows,  after  a  side-wall  correction  and  normalization 
(performed  by  subroutine  WALL)  are  done.  First  a  new  best  polynomial  is 
found  for  the  new  set  of  u+  vs.  ln(y+)  points.  Then  for  each  point,  the 
relative  error  is  determined  as  defined  by  the  following  simple  expression, 
ERR  =  [  u+(data)  -  u+(poly)  ]  /  u+(poly) .  After  a  series  of  tests,  a 
tolerance  was  fixed  as  TOL  =  0.5  %  .  It  was  found  that  proceeding  very 
carefully  in  experiments,  almost  all  points  fall  into  tolerance,  and  the 
resulting  set  of  points  permitts  the  subsequent  analysis.  On  the  other  hand, 
a  hasty  positioning  of  the  probe,  for  instance,  or  a  too  short  period  of  data 
collection,  would  make  a  data  point  exceed  the  tolerance.  Another  problem 
can  be  the  incidence  of  a  single  data  point  containing  a  gross  mistake. 
Since  measuring  probe  positioning  was  read  on  a  micrometer  by  an  operator,  a 
wrong  reading  or  wrong  actual  position  would  lead  to  a  distortion  of  the 
fitting  pol3momial  altering  the  set  of  relative  errors.  To  avoid  this 
problem,  only  that  point  exceeding  TOL  by  the  maximum  is  eliminated  at  any 
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one  time,  and  each  time  a  new  best- fitting  polynomial  and  set  of  -relative 
errors  is  computed  again,  until  all  remaining  points  satisfy  the  tolerance. 
For  instance,  in  one  case  there  was  at  first  7  points  with  ERR  >  TOL  from  a 
total  of  48  points;  after  eliminating  only  3,  the  remaining  45  satisfied  ERR 
<  TOL,  and  one  of  the  points  that  originally  satisfied  the  tolerance  was  one 
of  the  three  eliminated.  This  task  is  properly  doctimented  in  FN12  (Section 
4.10).     The  final  u+  versus  y+  data  points  is  tabulated  as  shown  in  FN12. 

Subroutine  WALL,  called  by  DISTRI,  applies  Johnson's  method  for  side  wall 
correction  (Theory  given  in  Chapter  2)  and  normalizes  the  data  in  tenns  of 
the  dimensionless  parameters  u+  and  y+.  WALL  asks  the  user  for  five 
parameters:  the  temperature,  the  flow  depth,  the  discharge  manometer  reading, 
the  water  surface  slope,  and  the  channel  width.  A  fter  the  values  are 
entered,  they  are  displayed  on  the  terminal  screen  and  the  user  is  given 
opportimity  to  change  or  confirm  them.  WALL  then  computes  the  viscosity 
(from  a  polynomial  regression  contained  in  the  program),  the  discharge, 
hydraulic  ratios  (global,  bed  and  wall),  et  cetera  (The  Reynolds/friction 
factor  ratio  is  also  interpolated  from  a  polynomial  regression) .  The  bed 
shear  velocity  is  finally  used  to  normalize  the  equations ,  thus  introducing  a 
correction  accounting  for  wall  effects  (Section  4.10). 

Subroutine  ORIGIN,  called  by  DISTRI,  implements  the  Perry- Joubert  search  of 
virtual  origin  (Theory  in  Chapter  2)  and  also  computes  the  Karman  coef- 
ficient, the  intercept  and  the  wake-strength  parameter  for  a  null  virtual 
origin  assumption.  The  virtual  origin  search  is  conducted  for  different  sub- 
layer thicknesses,  in  an  attempt  to  visualize  and  quantify  the  influence  of 
inadvertently  including  some  portion  of  the  wake  in  the  region  assumed 
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logarithmic.  Such  inclusion  will  distort  the  results,  and  the  aim  here  is  to 
quantify  that  distortion.  Since  the  measurements  conducted  in  the  course  of 
this  research  did  not  permit  a  proper  application  of  the  procedure  to  the 
near-bed  logarithmic  asymptote,  this  analysis  could  not  be  further  developed, 
although  it  will  be  possible  with  better  data.  Dimensionless  variables  are 
used  throughout  the  entire  procedure. 

The  automated  analysis  begins  with  the  4  points  nearest  to  the  bed.  The  sub- 
layer thickness  fixed  this  way  is  computed  in  terms  of  a  percentage  of  the 
boundary  layer  thickness.  Both  an  initial  e+  virtual  origin  and  Ae+  in- 
crement are  estimated  by  scaling  an  arbitrary  value  of  1  mm.  .  A  quadratic 
regression  is  obtained  for  u+  vs.  ln(y+  +  €+)  .  The  regression  coefficient 
C2  corresponding  to  the  quadratic  term  serves  as  an  indicator  for  the 
procedure:  while  finding  new  regressions,  e+  is  incremented  by  Ae+  until  a 
change  of  sign  in  C2  is  registered.  At  that  point  the  increment  is  modified 
according  to  the  assignment  Ae+  =  -0.4*Ac+  ,  i.e.  the  search  is  reversed  and 
refined.  The  procedure  ends  when  the  magnitude  of  C2  falls  below  a  tolerance 
value,  meaning  that  a  linear  regression  has  actually  been  attained. 

If  desired,  the  points  and  the  final  linear  regression  are  plotted  in  a 
dimensionless  graph  by  using  the  plotting  routines  described  in  4.8.  The 
same  graph  contains  the  original  y+  vs.  u+  data  points  and  best  polynomial 
regression.  Additional  information  is  written  in  the  graph,  including  the 
new  estimate  of  the  Karman  coefficient  (the  inverse  of  the  slope  of  the  new 
linear  regression)  and  the  corresponding  intercept  and  virtual- origin 
parameter  e+  (Figure  4.1).  The  procedure  is  repeated,  adding  one  point  at  a 
time,  for  up  to  10  points.     Thus  the  graph  would  contain  seven  linear 
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regressions  and  their  respective  parameters.  The  graph  would  also  contain 
the  bed  shear  velocity  and  the  kinematic  viscosity  used  in  the  computations 
(as  opportunly  obtained  by  the  subroutine  WALL) .  At  this  point  the  user  may 
optionally  continue  the  procedure  for  another  additional  seven  points  (hence 
new  regressions)  that  would  be  plotted  in  a  second  graph  (Figure  4,2)  or  may 
restart  the  procedure,  or  end  it.  If  the  operator  decides  to  produce  a 
second  graph,  the  same  stop-or-continue  opportunity  will  be  available  at  its 
end  and  so  forth  until  all  data  points  have  been  considered  (Figure  4.3),  in 
which  case  the  program  ends  the  procedure.  Nonetheless,  the  user  will  be 
able  to  restart  the  virtual  origin  search  or  continue  with  the  succeeding 
procedure.  If  the  user  opts  not  to  obtain  the  afore -discussed  plots,  the 
computations  are  carried  out  anyway  from  4  points  at  first,  up  to  the  total 
number  of  data  points. 

A  number  of  parameters  and  arrays  are  computed  at  the  same  time,  and  sent  to 
FN12  for  each  virtual -origin  solution,  including  (see  example  in  section 
4.10)  the  ratio  of  sub- layer  thickness  h  to  botmdary  layer  thickness  w  in 
terms  of  percentage,  PER  -  H/D*100  (which  does  not  includes  e) ,  standard 
error  of  estimate  of  the  final  linear  regression,  SD,  the  final  second-order 
regression  coefficient,  B(2)  (to  check  the  correctness  of  the  solution),  the 
virtual -origin  distance,  EPS  or  e  (in  meters),  the  dimensionless  virtual- 
origin  distance,  EPl  or  e+,  the  intercept  A,  the  Karman  coefficient  VK  or  k, 
the  wake -strength  parameter,  PI  or  <,  the  dimensionless  boundary- layer 
thickness,  D+  or  w+  and  the  dimensionless  reference  flow  velocity,  UM+  or 
Uni+.  For  each  data  point,  a  set  of  resulting  variables  is  printed  in 
tabulated  form  (the  computer  printout  reads  Y+  instead  Y+  +  EPl  and  D+ 
instead  D+  +  EPl  for  simplicity),  including  the  velocity  defect  Uui+  -  U+,  an 
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estimate  of  the  wake  (deceptive  when  points  of  the  wake  region  are  included 
in  the  estimation  of  e+) ,  and  the  corresponding  wake  region  velocity  values 
predicted  by  Coles'  and  Finley's  laws. 

The  ratio  H/D  is  stored  and  used  next  in  conjunction  with  the  plotting  of  k, 
A,  c+  and  n  against  ln(h/5)  (Figure  4.4),  which  is  executed  by  the  subroutine 
KARMAN,  called  by  DISTRI.  In  this  figure  (the  4  graphs  are  drawn  on  a  single 
sheet) ,  the  effects  of  the  wake  can  be  studied  (see  the  analysis  in  Chapter 
1) ,  when  jointly  considered  with  the  next  figure.  In  Figure  4.4  both  the 
obtained  points  and  the  corresponding  best-polynomial  regressions  obtained  by 
subroutine  BSTREG  are  drawn.  Under  the  Title  "Plot  of  functions  upon 
relative  depth"  (Section  4.10),  the  standard  error  of  estimate  obtained  in 
the  best- regression  search  and  the  regression  coefficients  are  printed  for 
each  of  the  four  functions  plotted  in  Figure  4.4. 

A  more  classical  analysis  is  done  at  the  end  of  the  routine  ORIGIN  by 
ignoring  the  virtual- origin  distance.  An  arbitrary  closest- to- the-wall  10% 
of  the  boundary  layer  is  taken  and  a  best- regress  ion  is  obtained  as  the 
"logarithmic  law  of  the  wall".  If  this  best  regression  is  not  in  fact  a 
linear  function,  this  would  serve  as  an  indication  than  this  expected 
behaviour  is  not  confirmed  by  the  measurements ,  perhaps  because  data  points 
from  the  wake  are  included.  Nonetheless,  in  this  procedure  a  linear 
regression  is  obtained,  and  the  Karman  coefficient,  the  intercept,  and  the 
wake-strength  parameter  are  computed.  Next  the  velocity-defect  and  wake  are 
computed,  as  well  as  Coles'  and  Finley's  predictions  for  the  wake.  These 
values  are  printed  are  tabulated  in  FN12  as  before,  under  the  title  "Law  type 
1  ,  u+.vs.ln(y+)  for  null  virtual  origin"  (section  4.10),  after  the  virtual- 
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origin  search  print-out. 


The  entire  velocity  distribution,  the  velocity-defect  distribution,  the 
logarithmic  law-of-the  wall,  the  measured  wake,  and  Coles'  and  Finley's  laws 
thus  computed  by  ORIGIN  are  then  plotted  (Figure  4.5)  on  a  single  sheet  by 
the  subroutine  DEFECT  (called  by  DISTRI) .  As  before,  best- fitting  polynomial 
regressions  are  used  (computed  by  BSTREG) . 

Under  the  Title  "Plot  of  functions  with  y+  computed  from  bed"  (section  4.10), 
the  standard  error  of  estimate  obtained  in  the  best- regression  search  and  the 
regression  coefficients  are  printed  for  each  of  the  four  functions  plotted  in 
Figure  4.5.  The  wake  function  plot  serves  to  determine  the  quality  of  the 
wake  predictors.  The  velocity-defect  distribution  establishes  whether  a 
logarithmic-overlap  region  is  present  in  the  measurements  or  not.  The 
Karman,  intercept  and  wake- strength  parameters  are  also  printed  in  the  same 
figure . 

4.8  Plotting  routines 

A  set  of  routines  has  been  prepared  to  allow  the  plotting  of  the  graphs 
described  above  in  different  machines.  Subroutine  PLO  opens  and  closes 
drawings  on  a  Hewlett-Packard  or  Tektronix  multipen  plotter  (option  1)  ,  a 
Tektronix  terminal  screen  and  Tektronix  attached  hardcopier  (option  2)  or  an 
off-line  Versatec  hardcopier  (option  3). 

Subroutine  HPL0T2 ,  called  by  ORIGIN,  KARMAN  and  DEFECT,  does  the  actual 
plotting,  including  frames,  axis,  figures,  point  symbols,  curves  and 
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subtitles.  It  has  a  ntunber  of  parameters,  described  in  comment  cards  in  the 
source  program,  that  provides  a  great  flexibility  (although  it  results  in  a 
somewhat  cryptic  code)  allowing  its  use  for  different  purposes. 


Subroutine  LIMITS,  called  by  ORIGIN,  KARMAN  and  DEFECT,  find  minimum  and 
maximum  values  for  the  plotting  arrays,  allowing  for  a  margin  around  the 
figure  to  be  included  in  the  drawing  frame.  Subroutine  SCALEl,  called  by 
HPL0T2,  scales  the  plotting  arrays  to  the  proper  dimensions  fitting  the 
different  actual  drawing  frames  and  positioning.  It  uses  values  computed  by 
LIMITS . 
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Figure  4.1:  Virtiial-origin  search  example  rising  4  up  to  10  points 
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Figure  4.2:  Virtnial-origin  search  example  tising  11  up  to  17  points 
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Figure  4.3:  Virtual -origin  search  example  vising  18  up  to  21  points 
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Figure  4.4:  Plot  of  functions  upon  relative  depth. 
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4.9  Example  of  FN12  during  data  acquisition  and  Statistical  Analysis 


USDA   SEDIMENTATION  LABORATORY,  OXFORD 
PROGRAM  VELHEAS 
***       MEASUREMENT  AND  STATISTICAL  ANALYSIS 
OF  VELOCITIES  IN  TURBULENT  FLOWS 
VERSION   I  (1985) 


ELAPSED  TIME 

"Y"   PROBE  POSITION: 

SEA  02/13/86  #19 


301.^1500  SECONDS 
1.550 


STATISTICAL  ANALYSIS 


NUMBER  OF  SAMPLES 
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MINIMUM  VOLTAGE  FOUND 
MAXIMUM  VOLTAGE  FOUND 
DATA   IS   IN  MULTIPLES  OF 


30000. 
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0,005  VOLTS 


30000. -SAMPLES  MEAN:  XM=  0.229 

SAMPLE  STANDARD  DEVIATION:     SM=  0.042 


THE     54  FREQUENCIES  OBTAINED  : 

NUM       VALUE  FREC  GRAPH   (   FROM  0.0  TO  0.05  ) 
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0.345 

O.OOllO 

50 

0.350 

0.00070 

51 

0.355 

0.00027 

52 

0.360 

0.00043 

53 

0.365 

0.00020 

54 

0.370 

0.00027 

SUM  =  1.00000 


VALUES   FOUND   THROUGH   THE  CURVE  QF  FREQUENCIES: 


MEAN  =  0.227 

STANDARD   DEVIATiaN  =  0.028 

MEDIAN  =  0.222 

MODE  =  0.205 

SKEWNESS  =  0.018 

KURTOSIS  =  -2.610 


MOMENTS  ABOUT  THE  ORIGEN  AT  ZERO: 

FIRST  =  0.226577 

SECOND  =  0.053102 

THIRD  =  0.012848 

FOURTH  =  0.003203 

MOMENTS  ABOUT  THE  MEAN  (AND  SHEPARD  CORRECTIONS)  : 

FIRST  =  -0.002137 
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SECOND     =  0-000792 
THIRD       =  0.0003^1 
FOURTH     =  -0-00009A 
COEFFICIENT   BETA   AND  GAMMA: 

BETA  1  =  236.'f32245 
GAMMA   I   =  15.376353 


CORRECT. =  0.000789 

CORRECT. =  -0.00009^ 

BETA   2     =  0.390'fU3 

GAMMA   2   =  -2.609517 


USOA   SEDIMENTATION  LABORATORY,   OXFORD  -s** 
***  PROGRAM  VELMEAS  -^-^ 

MEASUREMENT  AND  STATISTICAL  ANALYSIS  ^■^"■f 
OF  VELOCITIES    IN   TURBULENT  FLOWS 
VERSION  1    (  1985  ) 


ELAPSED  TIME 


301.88000  SECONDS 


"Y"  PROBE  POSITION; 
C 


2.550 


STATISTICAL  ANALYSIS 


NUMBER   OF  SAMPLES 
SECONDS  FOR  DELAY 
MINIMUM   VOLTAGE  FOUND 
MAXIMUM  VOLTAGE  FOUND 
DATA   IS   IN  MULTIPLES  OF 


30000. 
O.OI 

0.L39  VOLTS 
0.^23  VOLTS 
0.005  VOLTS 


30000. -SAMPLES  MEAN:  XM=  0.258 

SAMPLE   STANDARD  DEVIATION:      SM=  0.04^ 


THE     57  FREQUENCIES  OBTAINED 


NUM 


VALUE 


FREQ 


GRAPH   (    FROM  0-0  TO  0.05  ) 
(   SCALE   IS         !   =         27.3   SAMPLES  ) 


1 

0. 

139 

0.00087 

2 

0. 

144 

0-00097 

3 

0. 

149 

0.00187 

0. 

154 

0.00280 

5 

0. 

159 

0.00403 

6 

0. 

164 

0.00673 

7 

0. 

169 

0.00770 

8 

0. 

174 

0.00830 

9 

0. 

179 

0-01153 

10 

0. 

184 

0.01510 

11 

0. 

189 

0.0193C 

I  t 

ill 
t  •  f  t 
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12 

0.  194 

0.01827 

13 

0.199 

0.01907 

I'r 

0.204 

0.02303 

15 

0.  209 

0.02917 

16 

0.214 

0.03177 

17 

0.219 

0.03033 

18 

0.224 

0.03633 

19 

0.229 

0. 03847 

20 

0.234 

0.03750 

21 

0.239 

0.04177 

22 

0.244 

0.04280 

23 

0.  249 

0.04553 

2** 

0.254 

0.04553 

25 

0.259 

0.04497 

26 

0.264 

0.04467 

27 

0.269 

0.04427 

28 

0.274 

0.04050 

29 

0.279 

0.03917 

30 

0.284 

0.03720 

31 

0.289 

0.03457 

32 

0.^94 

0.02723 

33 

0.299 

0.02490 

34 

0.  304 

0.02250 

35 

0.309 

0.01953 

36 

0.314 

0.01750 

37 

0.319 

0.01627 

38 

0.324 

0.01270 

39 

0.329 

0.00923 

40 

0.  334 

0.00923 

41 

0.339 

0.00740 

42 

0.344 

0.00600 

43 

0.349 

0.00463 

44 

0.354 

0.00447 

45 

0.  359 

0.00357 

46 

0.364 

0.00323 

47 

0.369 

0.00277 

48 

0.374 

0.00177 

49 

0.379 

0.00100 

50 

0.384 

0.0008C 

51 

0.389 

0.00020 

52 

0.394 

0.00007 

53 

0.399 

0.00013 

54 

0.404 

0.00013 

55 

0.  409 

O.OOOlO 

56 

0.414 

0.00027 

57 

0.419 

0.00027 

SUM  =    I. 00000 


VALUES   FOUND  THROUGH  THE  CURVE  OF  FREQUENCIES: 

MEAN         =  0.255 
STANDARD  DEVIATION   =  0.023 
MEDIAN       =  0-252 
MODE         =  0.254 
SKEWNESS     =  0.543 
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KURTOSIS     =  -335.087 


MOMENTS  ABOUT 


MOMENTS  ABOUT 


COEFFICIENT 


THE  ORIGEN  AT 
FIRST 
SECONO  = 
THIRD  = 
FOURTH  = 
THE   MEAN  (AND 
FIRST 
SECOND  = 
THIRD  = 
FOUKTH  = 
BETA  AND  GAMMA: 

BETA  I  =  1953.969727 
GAMMA   I   =  ^^.203730 


ZERO: 
0.25519<h 
0.067062 
0.0I8II5 
0.005022 

SHEPARD  CORRECTIONS)  : 
-0.0027  35 
0.000534  CORRECT. = 

0,000543 
-0.000177  CORRECT. = 


BETA  2 
GAMMA  2 


0.000?«32 

-0.000  177 

-332.087206 
-335.087206 


*  :U  5S  S:    :j :;:  K:  *    *  ^:  rit  * :;:  i: :;:    O  :>  O  <s :;: :;:  ^: :;: :;:  :,t  :i    ^:  r!: :U  <:  -^T  ij  :;: :;;  O 

USDA   SEDIMENTATION  LABORATORY,  OXFORD 
PROGRAM  VELMEAS 
MEASUREMENT    AND   STATISTICAL  ANALYSIS 
OF  VELOCITIES    IN   TURfJULENT  FLOVJS 
VERSION    I  (1985) 

:;: :;: lU  :;:  <:  i  ^«  *  <:  ^: O  *  *  ^: i.s    C    =;:  O:.": ^: ;;:  ::j  U       :U =::  <:  *  *  ^: 3;!i:« 

ELAPSED    TIME  302.09500  SECONDS 

••Y-   PROBE  POSITION:  3.550 


STATISTICAL  ANALYSIS 


NUMBER   OF  SAMPLES 
SECONDS  FOR  DELAY 
MINIMUM  VOLTAGE  FOUND 
MAXIMUM   VOLTAGE  FOUND 
DATA   IS   IN  MULTIPLES  OF 


30000. 
0.01 

0.149  VOLTS 
0.448  VOLTS 
0.005  VOLTS 


30000. -SAMPLES   MEAN:  XM=  0.279 

SAMPLE   STANDARD   DEVIATION:      SM=  0.048 


THE     60  FREQUENCIES  OBTAINED  : 

NUM       VALUE  FREQ  GRAPH   (    FROM   0.0   TO  0.04  ) 

(   SCALE   IS         !  =         24.4   SAMPLES  ) 

1  0.149       0.0005C        I  I 

2  C.L54       0.00017       I  | 


175 


3  0.159 

^  O.L6^ 

5  0.169 

6  0.17A 

7  0.179 

8  o.ia^ 

9  0.189 

10  0.19^ 

11  0.199 

12  0.2  0^ 

13  0.209 
I<»  0.214 

15  0.219 

16  0.224 

17  0.229 

18  0.234 

19  0.239 

20  0.244 

21  0.249 

22  0.254 

23  0.259 

24  0.264 

25  0.269 

26  0.274 

27  0.279 

28  0.2B4 

29  0.2a9 

30  0.294 

31  0.299 

32  0.304 

33  0.309 

34  0.314 

35  0.319 

36  0.324 

37  0.329 

38  0.334 

39  0.339 

40  0.344 

41  0.349 

42  0.354 

43  0.359 

44  0.364 

45  0.369 

46  0.374 

47  0.379 

48  0.384 

49  0.389 

50  0.394 

51  0.399 

52  0.404 

53  0.409 

54  0.414 

55  0.419 

56  0.424 

57  0.429 


0.00097 
0.00253 
0.00353 
0.00623 
0.00667 
0.00660 
0.00613 
0.00990 
0.01140 
0.01353 
0.01653 
0.02083 
0.02297 
0.02843 
0.02997 
0.03183 
0.03363 
0.03813 
0.03810 
0.03933 
0.03907 
0.03790 
0.03600 
0.03623 
0 . 04060 
0.03690 
0.03527 
0.03503 
0. 03443 
0.03153 
0.03073 
0.031 13 
0.02777 
0.02503 
0.02243 
0.01940 
0.01850 
0.01580 
0.01343 
0.01217 
0.00883 
0.00890 
0.00663 
0. 00683 
0.00560 
0.00370 
0.00290 
0.00167 
0.00  123 
0.00130 
0.00150 
0.00117 
0.00050 
0.00053 
0.00047 


58 
59 
60 


0.439 
0.A44 


0,00053  I 
0.00030  I 
0.00010  I 


SUM  =  1.00000 

VALUES   FOUND  THROUGH  THE  CURVE  OF  FREQUENCIES: 

MEAN         =  0.276 

STANDARD   DEVIATION  =  0.028 

MEDIAN       =  0.272 

MODE  =  0.279 

SKEHNESS  =  0.618 
KURTQSIS     =  -277.495 

MOMENTS  ABOUT  THE  ORIGEN  AT  ZERO: 


FIRST 
SECOND 
THIRD 
FOURTH 


0.276306 
0.078686 
0.023057 
0.006940 


MOMENTS   ABOUT  THE   MEAN   (AND  SHEPARD  CORRECTIONS)  : 

FIRST       =  -0.002765 

SECOND     =  0.000805 

THIRD        =  0.000649 

FOURTH     =  -0.000225 
COEFFICIENT   UETA  AND  GAMMA: 

BETA   1     =  812.382992 

GAMMA   I   =  28.502333 


CORRECT. 

CORRECT. 

BETA  2 
GAMMA   2  ■ 


0.000803 

-0.000225 

-274 .495 117 
-277.495 117 


USDA  SEDIMENTATION  LABORATORYt  OXFORD 
<:»:"•:••  PROGRAM  VELMEAS  -^":= 

=:■•=;=-        MEASUREMENT   AND  STATISTICAL   ANALYSIS  ^'^'^ 
QF  VELOCITIES   IN  TURBULENT  FLOWS 
VERSION  1  (  1985  ) 

^: :;:  j;:  ^:  *  <t ;S       :;r  i):  v:  ^:  :::  S: ^:  <:  ^:  ^:    :S :;: J? :;: :)::;:  :^    ^:  :U  f.t  f.: 


ELAPSED  TIME 

"Y"   PROBE  POSITION: 


300.64500  SECONDS 
4.550 


STATISTICAL  ANALYSIS 


NUMBER  OF  SAMPLES 
SECONDS  FOR  DELAY 
MINIMUM   VOLTAGE  FOUND 
MAXIMUM  VOLTAGE  FOUND 
DATA   IS   IN  MULTIPLES  OF 


30000. 
0.01 

0.164  VOLTS 
0.465  VOLTS 
0.005  VOLTS 
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30000. -SAMPLES   MEAN:  XH=  0.299 

SAMPLE  STANDARD  DEVIATION:     SM=  0.051 


THE     61   FREUUENCIES  OBTAINED 


V/  A  1   1  1  f- 
V  A  L  U  L 

p  (V  P  p 

1 

1 

0.164 

0 . 00  04  1 
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1  L. 
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U  .  U  1.  1  U  U 

1  c 
1  ^ 

U  •  ^1 

U  •  U  2  U  V  J 

1  A 

fT          1  O 

U  •  <:  J  V 

n    A  7 

1  ( 

rt    "5  A  A 

n    n  7  7  A  r» 
U  .  \jZ  «  bo 

1  a 

n      /.  o 

n    n  7  1  A  o 
U  .  U  ^  I  o  L 

1  o 

n    "5  /* 
U  .  t  J  t 

n    n  7  Q  Q  7 

U  .  Ut  7  o  ( 

n     9  C  Q 
U.  ^  37 
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U . U J  3 

■5  1 

0  .  Z6h 

n    n  7  "a  n  7 

0.03307 

cZ 

0.  269 

0. 0342  7 

Z  3 

O      ^  7  / 

0.2  74 

n     r\  7  7  1  7 

0.03717 

0.2  79 

0 . 0409  7 
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U . U3  U  c  1 
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U  •  2  O  7 
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rt     rt  7  7  7  rt 

0.03  7  3  0 

■5  a 
C  O 

0  •  2  99 

0.03  72  3 

29 

0.3C4 

0.03727 

30 

0.309 

0.03620 

3  1 

0.3  14 

0.0322  7 

32 

0.319 

0.03033 

33 

0.324 

0.03297 

3'* 

0.329 

0.02677 

35 

0.  334 

0.02573 

36 

0.339 

0.02310 

37 

0.  344 

0.02297 

38 

0-349 

0.02 177 

39 

0.354 

0.02083 

^0 

0.359 

0.01683 

41 

0.364 

0.01427 

42 

0.369 

0.01623 

43 

0.  374 

0.01667 

44 

0.379 

0.01  100 

45 

0.364 

0.00893 

GRAPH    (    FROM   0.0   TO   0.04  ) 
(    SCALE    IS  I    =  25.3   SAMPLES  ) 


lit 
III 
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^6  0.389  O.OOY'tT 

47  0.394  0.00647 

48  0.399  0.00617 

49  0.404  0.00477 

50  0.409  0.00403 

51  0.414  0.00343 

52  0.419  0.00283 

53  0.424  0.00183 

54  0.429  0.00123 

55  0.434  0.00090 

56  0.439  C. 00090 

57  0.444  0.00057 

58  0.449  0.00063 

59  0.454  0.00080 

60  0.459  0.00067 

61  0.464  0.00003 


SUM  =  1.00000 

VALUES   FOUND  THROUGH  THE  CURVE   OF  FREQUENCIES: 

,    MEAN         =  0.296 

STANDARD  DEVIATION   =  0.030 

MEDIAN       =  0.291 

MODE          =  0.289 

SKEWNESS     =  0.624 

KURTOSIS     =  -267.974 

MOMENTS  ABOUT  THE  ORIGEN  AT  ZERO: 

FIRST  =  0.296310 

SECOND  =  0.090362 

THIRD  =  0.028322 

FOURTH  =  0.009111 

MOMENTS  ABOUT  THE  MEAN  (AND  SHEPARD  CORRECTIONS)  : 

FIRST  =  -0.002751 

SECOND  =  0.000925                      CORRECT. =  0.000922 

THIRD  =  0.000745 

FOURTH  =  -0.000276                      CORRECT. =  -0.000276 
COEFFICIENT  dETA  AND  GAMMA: 

BETA   1  =  707.741425                      BETA  2     =  -264.974300 

GAMMA   I  =  26.603410                      GAMMA   2   =  -267.974300 

*::;^:0<::U:::*S:S:-:*CS:::«:S:::^"::<":::S::::::::::::::::::^:<:^:i:<:<:*^: 

5?*=:=     USDA   SEDIMENTATION  LABORATORY,  OXF.ORD 
PROGRAM  VELMEAS 
MEASUREMENT  AND  STATISTICAL  ANALYSIS 
OF  VELOCITIES   IN  TURBULENT  FLOWS 
VERSION   1    (  1905  ) 

<U?  <:    :;:  ^: O  *  *  *  O  Kt  i.'  O  4 i:    <: :;:  i: :;:  H  ifitifii :;:  iIsS: 
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ELAPSED  TIME  302.31501  SECONDS 

"Y"   PROBE   POSITION:  5.550 


STATISTICAL  ANALYSIS 


NUMBER   OF  SAMPLES 
SECONDS   FOR  DELAY 
MINIMUM  VOLTAGE  FOUND 
MAXIMUM  VOLTAGE  FOUND 
DATA  IS   IN  MULTIPLES  OF 


30000. 
O.Ol 

0.179  VOLTS 
0.^81  VOLTS 
0.005  VOLTS 


30000. -SAMPLES  MEAN:  XM=  0.315 

SAMPLE  STANDARD  DEVIATION:      SM=  0.051 


THE     61   FREQUENCIES  OBTAINED 


»  wn 

V  A 1  IIP 
T  M  u  y  c 

P  u  P  n 

r  IN  C  U 

1 
1 

n    1  7  Q 
U  •  i  /  V 

u  .  U  U  1.)  i  J 

U  •  I  OH 

U  •  U  U  U  H  U 

3 

0.  189 

0.00060 

h 

0.  19A 

0.00213 

5 

0.  199 

0.00180 

6 

0.204 

0.00320 

7 

0.209 

0.00377 

8 

0.214 

0.00667 

9 

0.219 

0.01017 

10 

0.224 

0.01117 

II 

0.229 

0.01  170 

12 

0.234 

0.01253 

13 

0.239 

0.01733 

1^ 

0.2^4 

0.01770 

15 

0.249 

0.02060 

16 

0.254 

0.02  100 

17 

0.259 

0.02537 

18 

0.264 

0.02660 

19 

0.269 

0.02967 

20 

0.274 

0.03127 

21 

0.279 

0. 03087 

22 

0.284 

0.03303 

23 

0.209 

0.03323 

24 

0.294 

0.03430 

25 

0.299 

0.03347 

26 

0.304 

0.03643 

27 

0.309 

0.03690 

26 

0.314 

0.04  I  10 

29 

0.319 

0.03647 

30 

0.324 

0.03620 

31 

0.  329 

0.03^37 

32 

0.334 

0.03253 

GRAPH   (    FROM   0.0    TO   0.04  ) 
(    SCALE    IS  I   =  24.7   SAMPLES  ) 
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33 
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SUM  =  1.00000 

VALUES   FOUND  THROUGH  THE  CURVE  OF  FREQUENCIES: 

MEAN          =  0.313 

STANDARD  DEVIATION  =  0.035 

MEDIAN       =  0.310 

MODE         =  0.314 

SKEWNESS     =  0.587 

KURTOSIS     =  -180.978 


MOMENTS   ABOUT    THE   ORIGEN  AT  ZERO: 

FIRST       =  0.312957 

SECOND     =  0.100539 

THIRD       =  0.033108 

FOURTH     =  0-011159 
MOMENTS  ABOUT  THE   MEAN   (AND  SHEPARO  CORRECTIONS)  : 

FIRST       =  -0.002147 

SECOND     =  0.001248                      CORRECT. = 

THIRD        =  0.000641 

FOURTH     =  -0.000251                      CORRECT. = 
COEFFICIENT  BETA  AND  GAMMA: 

BETA   1     =  212.411929                      BETA   2  = 

GAMMA    1    =  14.574359                       GAMMA   2  = 


0.001246 

-0.000251 

-177.977575 
-180.977575 
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4.10         Example  of  FN12         after  Bcnmdary  Layer  Analysis 


=  =  =  l'SC;i  NATICNAL  SECIfEMATlON  LAECKAICRY  ==  = 
===  AND  === 

=  =  =  THE   UMVEKSITY   Gf     MISSISSIPPI  ==  = 


PRCGKAH  VEL^«EAS 
VERSICN    I    (l«986  ) 
MEASLHEfENT   AND  ANALYSES 
CF   VELCCITIES    IN   lUReULEM  FLOhS 


A   TRANSFCRMATION   FUNCTICN   HAS   13EEN   CEFINEC  BY: 

VELOCITY   =   A        VCLTS  E   *   SCKT(VCLTS)     +  C 

«    Wllh:      A   =  C.CCCOO    t      C   =  0.75800    ,   L   =  O.COGOC  . 

% 


STATISTICAL  PARAPE 


PCS 

SAMPLES 

1.550 

30000. 

2.55C 

3000C. 

3.550 

30CCC. 

A. 550 

3000C. 

5.550 

30000. 

6.550 

3CCC0. 

7.550 

300C0. 

e.550 

30C0C. 

<;.550 

300CC. 

1C.550 

3C0C0. 

12.550 

30000. 

U.SSO 

30CCC. 

16.550 

30UCC. 

ie.55C 

3000G. 

2  1.550 

3000C. 

25.550 

30CCC. 

3C-550 

3000C. 

35.550 

3000C. 

'.C.SSO 

30000. 

^15.550 

30C0C. 

5C.550 

3000C. 

55.550 

3000C. 

6C.550 

3000C. 

CGTA  INEO: 
MEAN  S.O. 


C.363 

0.155 

0.365 

C.15<; 

C.^CC 

C  .166 

C.'.  lA 

C.171 

C.M25 

C.17I 

0.'i3I 

C.175 

C.A^2 

C.l  76 

0.^152 

c.i7«; 

0.'i5<. 

C.179 

0.^6^ 

0.186 

CtTA 

0.166 

0.<t85 

0.186 

O.AS  1 

0  .  I8<; 

0.183 

C.5  1  I 

0.181 

0.52*1 

0.176 

0.538 

0.175 

0.5^8 

0.171 

0.56<i 

U  .  16S 

0.57A 

0.173 

0.583 

0  .  16  1 

0.5S3 

C.155 

a.6CC 

0.153 

SKEh  KURT 

0.010  -2.61C 
C.5't3  -335.08  7 
C.618  -277.495 
C.62A  -267.97'! 
0.587  -180.978 
0.48'»  -128.700 
O.'ib'i  -119.9'«0 
0.55<i  -229.236 
0.789  -364.388 
0.577  -191. IG2 
0.678  -285.7<i2 
0.758  -358.812 
U.738  -322.704 
1.017  -735.631 
1.298  -1583.764 
1.431  -1284.574 
1.614  -2497.462 
2.353  -6752.655 
4.180-62807.051 
3.91  1-32192. OCl 
99999.999  99999.999 
99999.999  99999.999 
99999.999  99999.999 


VELCCITY   OISTRIBllTICN  TREATMENT 

0)  PCINTS   ARE   REARPENGEO    (IF   NECESSARY    )   FROM   BED    TO   WATER  SURFACE 

1)  PCSIIICN   COKRECTICN    FCP    POITCM  PHC^dMITY 
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I 


LEVEL 

S 

1 

.    L  U  K  - 

K.  P  L 

V  — 

c  •  1  o  o 

LEVEL 

2 

:    COR  = 

C.5563C 

r  NEk< 

Y  = 

3.  106 

LEVEL 

« 

3 

:   COR  = 

C. 55133  , 

f  NEVi 

Y  = 

A.  ICl 

LEVEL 

ft  . 

.   COB  = 

C.5<i333 

,  NEVi 

Y  = 

5.C93 

LEVEL 

A 

5  . 

.   CCR  = 

C. 53252  1 

f  NEVi 

V  = 

6  .C83 

LEVEL 

a 

6  : 

.   COR  = 

C. 51913  1 

,  NEVi 

Y  = 

7.069 

LEVEL 

ft 

7  • 

:   COR  = 

0.5C338  1 

r  NEW 

Y  = 

e.053 

LEVEL 

i 

6  : 

CCR  = 

C.'i85<t9 

t  NEh 

Y  = 

9.C35 

LEVEL 

a 

«)  : 

•   COR  = 

C.^657C 

,  NEh 

Y  = 

1C.016 

LEVEL 

tt 

10  : 

.   CCR  = 

C.AA<i2  1 

,  NEk 

Y  = 

10.99^1 

LEVEL 

t 

11  : 

'   CCR  = 

c.3«;70<; 

r  NEk 

Y  = 

12.9<i7 

LEVEL 

« 

12  : 

:   COR  = 

C.3A5S1 

r  NEk 

Y  = 

1<«.696 

LEVEL 

13 

:   COR  = 

C. 29250 

,  NEh 

Y  = 

16.8A2 

LEVEL 

0 

IH  : 

:   CCR  = 

C. 23863  1 

r  NEh 

Y  = 

18.789 

LEVEL 

n 

15 

:   CCR  = 

C.  16C91 

,  UEtn 

Y  = 

21.711 

LEVEL 

a 

16  . 

COR  = 

C. 0725  1 

,  NEVi 

Y  = 

25.623 

LEVEL 

n 

17  : 

CQR  = 

C.0C667  1 

,  NEh 

Y  = 

3C.557 

2)   CeTEtJiICN  OF   BEST  REGRESSION 


1-  CROER  REGRESSICN: 

2-  ORDER  REGHESSICN: 

3-  OROER  REGRESSION: 
<i-CROER  REGRESSION: 

5-  ORDER  REGRESSION: 

6-  CRDER  REGRESSION: 


SD=  0.CG63610 

SC=  C.CC19706 

S0=  C. 0015837 

SC=  C.CC16C3't 

SC=  C.0C16495 

SC=  C.C016576 


FOR        23    FGINTSt   UES7   REGRESSION   FCLNC    IS   OF   ORCJEK  3 
INTERCEPTION  COEFFICIENT    :        A   =  C.3178<i69 

REGRESSION   COEFFICIENTS      :        li   =      C.622275'iE-01   -G.<i  3  1 1'*  7<rE-C2      0  .  U  ^980  3E-Q2 


3)   CCf-PUTE   CAXIMUH   VELOCITY    IN    THE  REGRESSION 


fAXlfDH   VELOCITY   FCLNC   FCR   SELECTEC  REGRESSION: 

\Jf-  C.60G77  AT   Y^=  60.55CC0 

(   LN(Y^'>    =    Z^=  <i.l03A7  ) 

fAXIHUH  LEVEL   ACCCLiNTEC      YHA   =  6C.55CCG 


<■}     VALUES  OETAINEC: 


K 

Y 

U 

Y/Y^ 

l/lf 

L/tM 

UR/LM 

ERR^ 

I 

2.1CU 

C.363 

0.035 

0.182 

C.6C4 

0  .tC3 

0.076 

2 

3.1C6 

0.385 

0.051 

0.276 

C.64  1 

0.641 

0.0  17 

3 

<i.  ICl 

0.400 

0.068 

0.344 

0.666 

0.t6b 

-C.194 

5.093 

0.4  U 

C.084 

0.397 

C.690 

G.6fc9. " 

C.  122 

5 

6.063 

0.<i25 

0.  IOC 

0.440 

C.7CH 

0.7C7 

0.178 

6 

7.069 

C.43I 

0.117 

0.4  77 

C.717 

0.  722 

-0.7  16 

7 

e.053 

C.442 

0.133 

o.5ca 

C.736 

0.736 

-CO  16 

e 

9.035 

C.452 

0.  149 

0.536 

C.753 

0.748 

0.64C 
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I 


9 

10.016 

0  •  A  54 

0.165 

IC 

1C.S94 

0.464 

0.162 

11 

12. 9*17 

0.474 

0.2  14 

12 

1^.896 

0.485 

0.246 

13 

16.642 

C.491 

0.278 

lA 

18.769 

C.499 

0.3  10 

15 

21.711 

C.5  1  1 

C.359 

16 

25.623 

0.524 

C.423 

17 

30.557 

0.538 

0.505 

la 

35.550 

0.546 

0.587 

19 

AO. 550 

0.564 

0.67C 

20 

A5.550 

C.574 

0.752 

21 

50.550 

C.563 

0.835 

22 

55.550 

0.593 

0.9  17 

23 

60.550 

0.600 

l.CCO 

0.562  C.755  0.759  -0.557 

0.584  0.772  0.769  0.288 

0.624  C.789  0.768  0.146 

0.658  0.808  0.8C4  0.479 

0.668  0.818  0.819  -C.12Z 

0.715  C.830  0.822  -0.217 

0.750  C.651  0.850  0.098 

0.790  0.871  0.872  -0.053 

0.833  0.896  0.896  -C.0I3 

0.870  0.912  0.917  -0.520 

0.902  0.938  0.927  C.U9 

0.931  C.956  0.954  0.163 

0.956  C.970  0.971  -0.071 

0.979  0.988  0.986  0.2C7 

l.OCC  0.999  l.CCO  -0.094 


1GC=  23.5CC   CELSIUS   C.t  DEP=  2. 510  INCHES 

CH  =   »       12.000  I^.^-G.       *       slp=  c.coi20oc 

EFL=  1.972  FEET 


SIDE-WALL   CORRECTICN   F/lPA^'E  T  ERS  : 


CHANNEL  WiCTh 

PFL  = 

0.601  HETER 

TEMPERATURE 

TGC  = 

23.5   CELSIUS  DEG. 

VISCCSITY 

VIS  = 

C.924t-06  SC.f.£TERS/SEC. 

CEPTH 

CEP  = 

0.C638  METER 

CISCHARGE   PANOMETER  READING 

CH  = 

C.3046  METER    (OF    HG ) 

DISCHARGE 

CFT  = 

0-C1760  CUE. METERS/SEC. 

ENERGY  SLOPE 

SLP  = 

0.CC120UC 

^EAN  VELOCITY 

VEL  = 

C.4594  METERS/SEC. 

HYDRAULIC  RATIO 

RA0  = 

0.0526  METER 

SHEAR  VELOCITY 

SHE  = 

C.C249  METfcR/SEC. 

CARCY-HE  ISBACH  FRICT.CCEFF. 

FRC  = 

0.C235 

REYNOLDS  NUHEEK 

REY  = 

0.  105E  +  06 

PEY/FRC  RATIO 

RAT  = 

C.445E+07 

WALL-FRICTION  COEFF. 

FPk.= 

0.C202 

EED-FRICTICN  COEFF. 

FRe  = 

0.0242 

EEO   HYDRAULIC  RATIO 

RBC  = 

C.i;541  METER 

tED   SHEAR  VELOCITY 

SHE  = 

C.C253  METER/SEC. 

EED/GLOBAL   STRESS  RATIO 

BST  = 

1.C3 

WALL/GLOEAL   STRESS  RATIC 

k.ST  = 

C.bt 

2)   CETENTICN  OF    EEST  REGRESSION 


1-  CRDER  REGRESSION: 

2-  CROER  REGRESSION: 

3-  CRDER  REGRESSION: 

4-  CROER  REGRESSION: 

5-  OROER  REGRESSION: 

6-  CRDER  REGRESSION: 


SC=  0.2518716 

SC=  0.0783470 

SD=  C.0627081 

SC=  C.06348U7 

SD=  0.0653132 

SD=  C. 0656349 
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FCR        23   POINTSt    B6ST    REGRESSION   FCUNO    IS   GF   OKOGR  3 
INTERCEPTION  COEFFICIENT    :        A   =  O.A877aG6 

REGRESSION  COEFFICIENTS      :        B   =      C.  S'l  7  8  25  0 1  •♦  0  I    -C.  7A0<»'.  SfcE  +  OO     0  .  5  7  <•  0  7  0  1  fc  -  CI 


NEW   VALUES  OETAINEC: 


2) 


K 

Y*  LN(Y-») 

I 

57.620 

'I.05A 

l<i.352 

14.363 

-0.076 

2 

8^.907 

.A^2 

15.2'i3 

15.245 

-0.017 

3 

112.106 

'i.Tl'i 

15.88A 

15-854 

0.  194 

^ 

139.221 

<i.936 

16.392 

16.412 

-0.  121 

5 

166.260 

5.1  l<i 

16.8  16 

16.845 

-0 .  177 

6 

193.227 

5.26^ 

17.  181 

Q»  I  di  I 

7 

220.131 

5. 39*1 

17.50'! 

17.501 

0.016 

8 

2A6.976 

5. 509 

17. 79*1 

1  7.908 

—0.635 

273.769 

5.6  12 

18.059 

17.958 

0.  560 

IC 

300.515 

5.705 

18.302 

18.355 

-0.288 

1 1 

, 353.695 

5.869 

18.7AC 

18.768 

-0.  148 

12 

<i07.164 

6  .009 

19.127 

19.218 

-0.477 

13 

<i60.372 

6.132 

19.^175 

19.451 

0.122 

1^ 

513.568 

6.24  1 

19. 793 

19.750 

0.2  18 

15 

593. ^'•S 

6,366 

20.226 

2C.246 

-0.098 

16 

7G0.365 

6.552 

20.7<iC 

20.729 

0.053 

17 

835.235 

6.726 

21.311 

21.308 

0.013 

18 

971.722 

6.879 

2  1.62  1 

21.706 

0.533 

It 

I  lCa.392 

7.0  1  1 

22.282 

22.320 

-0.168 

20 

12«i5.C62 

7.127 

22.  703 

22.740 

-0.  163 

21 

1381.732 

7.221 

23.C90 

2  3.074 

0.071 

22 

1518.^02 

7.325 

23.451 

23.499 

-0.206 

23 

1655.072 

7.^12 

23.788 

23.766 

0.094 

CETENTICN  OF  BEST 

REGRESSION 

l- 

ORDER  REGRESSION 

S0  = 

0. 

2534934 

2- 

ORDER  REGRESSION 

sc= 

C. 

0782671 

3- 

CRDER  REGRESSION 

SD  = 

C. 

0564429 

<t- 

ORDER  REGRFSSICN 

SU  = 

0.0568672 

5- 

CRCER  REGRESSION 

SD  = 

C. 

0582289 

6- 

CROER  REGRESSION 

SD  = 

C. 

0592634 

FOR        22   POINTSt    BEST   REGRESSION   FCUNC    IS   OF  QKOER  3 
INTERCEPTION  COEFFICIENT    :        A   =■  -1.C358691 

REGRESSION  COEFFICIENTS      :        e   =      C.629G344E  +  C1   -0.88044 1  lE  +  CC  C.652t424E-Cl 


POINT   Y   =          193.227  i    FLIf'TNATEL.   NEW   tRRCR  VALCfcS: 

-C.137            0.049  C.3C1          -C.0C6         -0.064            0.112         -0.551  C.t35 

-C.223         -Q.ICC  -C.444            C-142            C.227          -C.ICC,           C.C41  -C.0C5 

C.514         -C.184  -C.173            C.C69         -C.199  -ClU 

2)   OETENTIQN  OF   BEST  REGRESSION 
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1-  OROEP  REGRESSION: 

2-  CRDER  REGRESSION: 

3-  ORDER  REGRFSSICN: 
<i-QPOER  REGRESSION: 

5-  OROER  REGRESSION: 

6-  CRDfR  REGRESSION: 


SD=  C.2'.97567 

S0=  0.0772329 

S0=  C. 0501894 

S0=  C.0<ie2899 

SD=  O.OA8337I 

SO-  C.0'i707'i9 


FOR        21    POINTSt    REST   REGRESSION   FCLNC    IS   OF   ORDER  6 
INTEPCEPTICN  COEFFICIENT   :        A   =  -829.2258683 

PEGRESSICN  COEFFICIENTS      :        E   =     G.  9<t  35  S'l  <i  E-tG3   -C  . 32  73  1 2 1  +  0  3      C.  105CC3  lfc-»C3 

-0.1A  185  76E-»02     C  .  1 G 1 1 7  58E4  C  I  -  0  .  29  7  5  3  5  C£  -  C  1 


FCINT   Y  =  273.769  t   ELIflNATEC.   NEV   ERRCK  VALUES: 

C.C02  -0.031            C.116         -C.115          -G.051  0.316 

C.119  -C.3C1            C.2C5            C.2ie          -C.192  -0.105 

-C.181  -C.lCe  C.156         -C.l<i6  0.062 


-G.301 
-C.  IH 1 


C.UA4 


2   POINTS    ELlMINATtC  FRC^' 


23   ORIGINAL    PCINTS.  <<== 


FLCVi   RESISTANCE   CALCLLATICNS   FROH  REGRESSION 

f'EAN   VELOCITY                          UA      =  0.520 

Clf-ENSICNLFSS   ^'£AN                UA-»    =  20.577 

CARCY-WE ISBACH  CCEFF.          F        =  0.019 

l./SCRT(F)     =  7.275 


M./SEC. 


********************* 

**«  CASE   NUMBER    19  «** 


VALUES  BEFORE  LRIGIN  CORRECTION  FCP  THE  CASE  NUMBER  19 
LAU-CF-THE-hALL   CCCRCINATES   Y-f   ANC  U-i 


(LAST   VALUE   CORRESPCNCS    TO   THE   CEPTh  ) 


I 

Y-t 

LN(Y-f  ) 

1 

5  7  .62C 

<i  .05<t 

14.363 

2 

6A.9C7 

15.245 

3 

1  12.  1C6 

'1.719 

15.854 

A 

139.22  1 

<i.936 

16.4  12 

5 

166.260 

5.114 

16.845 

6 

220.13  1 

5  .39A 

17.50  1 

7 

2<.6.976 

5-509 

17.908 

8 

300.5  15 

5. 705 

1 e. 355 

9 

353.895 

5.869 

18.768 

10 

'i07.  16A 

6.009 

19.218 

1  1 

'.60.372 

6.132 

19.45  1 

12 

513.568 

6. 241 

19.750 

13 

593. ^'iS 

6.386 

2C.246 

700  .365 

6.552 

2C. 729 

15 

835.235 

6.728 

2  1.308 

16 

971.722 

6.879 

2  I. 706 
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17  1108.392  7.011  22.32C 

18  l2<i5.C62  7.  127  22.7^0 

19  1381.732  7.23  1  23. 07^1 

20  1518. <iC2  7.325  23.'i';9 

21  1655.072  ?.^12  23.766 
SURFACE  17<i2.65C  7. '•63  23.963 


SURFACE  VALUES  HAS  KEEN  ACCEO  TO  y-»»U-«  LAW  AS  THE  POINT  NUMtitR  22 
BCUNDARY   LAYER    THICKNESS  0+      =  17<i2.C50   (    IN   Y+  COORD.) 

REFERENCE   FLCK  VELOCITY  VM*   =  23.963   (    IN  U-»  CCORC.) 


LAW   TYPE   1   :  LN(Y4) 

USING           POINTS   (   PER  = 

8.00  X 

CF 

E. LAYER 

STANCARO   ERRCR  OF  ESTIF-AIE 

SE  = 

C 

.23CE-01 

2NC. -ORDER  REGR.COEFF. 

b(2>  = 

-0 

.287E-C6 

VIRTUAL   ORIGIN  DISTANCE 

EPS  = 

C.C0C61 

VIRTUAL   ORIGIN  DISTANCE 

EP-»  = 

16.637 

INTERCEPT 

AP  = 

2.5<i8 

KARPAN  CCEFFICIENT 

VK  = 

C.  36<. 

WAKE  STRENGTH 

PI  = 

C.  166 

EGUNCARY   LAYER  THICKNESS 

D4  = 

1759.287 

REFERENCE   FLCW  VELOCITY 

VK-*-  = 

23.963 

(    IN  HE7ERS  ) 
(    IN  Y*  COORD.) 
(    IN  04  COORD.) 


(  IN  Y+  COORD.) 
(    IN   U-«  COORD.) 


LAW 

I 
1 

2 
3 
<i 
5 
6 
7 
8 
9 
IC 
1  1 
12 
13 

15 
16 

1  7 
18 
19 
20 

2  I 
22 


TYPE    1    :    VALUES  AFTER 


7<i 
101 
126 
155 
182 
236 
263 
3  17 
37C 
'.23 
A  7  7 
530 

6  10 

7  17 
85  1 
968 

1125 
1261 
1398 
1535 
1671 
1759 


Y-» 

.257 
.5^5 
.7^3 
.858 
.897 
.768 
.613 
.153 
.533 
.8C2 
.010 
.205 
.083 
.002 
.872 
.360 
.030 
.700 
.369 
.039 
.7C9 
.287 


LN  {  Y-»  ) 

'..308 

A.62C 

'1.858 

5.0^19 

5. 209 

5.  ^67 
5.57^^ 
5.759 
5.9  15 
6  .0'i9 
6.166 
6-273 

6.  AM 
6.575 
6.7A7 
6.696 
7.026 

7.  lAC 
7.2A3 
7.336 
7.<i22 
7.A73 


lA 
15 

1  5 
16 
16 
17 
17 
18 
18 
19 
19 
19 
2C 
2C 

2  1 
2  1 
22 
22 
23 
23 
23 
22 


ORIGIN 
U  + 

.363 
.2^.5 
.65'. 
.<il2 
.8A5 
.501 
.908 
.355 
.768 
.2  10 
.<«5  1 
.750 
.2'i6 
.  729 
.308 
.706 
.320 
.7^0 
.07^1 
.'.99 
.766 
.963 


CORRECTION: 
Y-»/C-» 
C.CA2 
C.C56 
C.C73 
C  .089 
O.lO't 
C.135 
C.  15C 
0.  180 
0.2  1  1 
C.2'.  1 
0.271 
C.3C1 
C.3<«7 

CAce 

O.'iS'i 
0.562 
C.639 
C.717 
C.795 
C.873 
C.95C 

1  .ceo 


LN  (Y/U) 

Uf-U* 

WAKE 

CCLES 

FINLEY 

-3.165 

9. 600 

-0.0  10 

0-0C9 

0.C99 

-2.352 

8.7  18 

O.O'i  1 

0-0  16 

C.  139 

-2.615 

8. lie 

-0.053 

0-026 

C.  16C 

-2  .A2'. 

7.551 

0.022 

0-036 

C.222 

-2.26*. 

7.118 

0.0C9 

0-053 

0.265 

-2.006 

6. '•62 

-C. 1C6 

0.068 

C.355 

-1.898 

6.055 

0,lkl 

0-  1C9 

C.4C  1 

-1.713 

5.608 

0.008 

0-156 

0-496 

-  1.558 

5.195 

-0.023 

0.211 

C-594 

-1.'.23 

'..745 

0.157 

0-273 

C.694 

-1.305 

'•.512 

-O.O'i '• 

0-341 

C-796 

-1.  199 

'•.213 

-C.025 

0-4  16 

0.696 

-1  .059 

3-7  18 

C.217 

0-537 

1.C52 

-0.898 

3.23'. 

C.3C6 

0.7  14 

1  .256 

-0.725 

2-655 

C-536 

0.950 

1  .501 

-C.577 

2.257 

C.517 

1.193 

1.725 

-0.'.'»7 

1  .6'i3 

1-085 

1.424 

1.914 

-0.  332 

1.224 

1-316 

1-631 

2.056 

-C.230 

0.689 

l.'«3C 

1-799 

2.  14C 

-0.136 

0.'i6'i 

1.803 

1-921 

2  .  155 

-C.C51 

0.197 

1-875 

1  -968 

2  .090 

C.CCO 

0-000 

2-000 

2.0C0 

2  .CCC 

LAW    TYPE    1   :  LN(Y-») 

USING        5   POINTS    (    PEP   =  10. CC   X   CF    E. LAYER  ) 
STANDARD   ERROR   OF   ESTIMATE     SE      =  C.188E-01 
2ND. -ORDER  RFGK.CCEFF.  U(2)=  0.9346-06 

VIRTUAL   ORIGIN   DISTANCE  EPS   =  C.0C065   (    IN  METERS  ) 


187 


VIRTLAL   ORIGIN   CISTAKC6  EP+ 

INTERCEPT  AP 

KARMAN   CCEFFICIENT  VK 

WAKE   STRENGTH  PI 

ECUNCARY   LAYER    THICKNESS  D* 

REFERENCE   FLCh   VELCCITY  V^••^ 


IN  Y+  COCRO.) 
IN  U-f  COORC.) 


17.67A  ( 

2.386  ( 
0.361 
C.  IS^i 

1760. 32^1  (    IN   Y*   COCRO.  ) 

23.<;63  (    IN   U-»  COGRD.  ) 


LAW    TYPE    I    :    VALUES   AFTER  CRIGIN  CCRRECIION: 

I              Y4  LN(Y-l)        L-»  Y-»/C-»  LN(Y/0)  UM-U*  WAKE  CCLfS  FINLEY 

1  75.2'J'.  <i.321  l<i.363  C.C'i3  -3.  1  52  9.6CC  -0.012  0.009  C.i06 

2  102.562  A. 631  15.2A5  C.C58  -2.«'i3  8.718  O.OAti  0.017  Cl'iB 

3  l2S.7eO  '..866  1  5. 65^  0.07^.  -2.607  C.llC  -0.056  0.027  C.191 
't        156.895  5.056  16. '•12  C.089  -2.'tld  7.551  C.019  0.039  0.23'i 

5  183. 93^1  5.215  16.6<.5  ClOA  -2.259  7.  1  18  0.0C2  0.053  C.28C 

6  23  7.805  5  .'t71  17.501  C.135  -2.CC2  6.^162  -0.13C  0.089  C.373 

7  26'i.650  5.578  17.908  C.15C  -1.895  6.055  0.  128  0.1C9  C.'i2C 

8  318.190  5.762  18.355  0.181  -1.711  5.608  -0.021  0.157  0.518 

9  371.569  5.918  18.768  0.211  -1.556  5.195  -0.061  0.212  C.619 
IC        '(2A.839  6.C52  19.218  C.2'il  -1.'.22  'i.7'i5  0.  123  0.27^1  C.721 

11  .'.78. 0^16  6.17C  19.A51  C.2  72  -I. SC.  'i.5l2  -0.097  0.3'i2  0.825 

12  53  1  . 2'i2  6.275  19.750  C.302  -  1  .  198  <i .  2  1 3  -0.082  0,^17  C.929 
1  3  6  1  1.  120  6.'il5  2C.2'»6  C.3'.7  -1.C58  2.7  18  0.  168  0.538  1.C85 
M        7  1  8.039  6  .577  20.729  O.'.CB  -0.897  3.23'i  0.25'i  0.715  1.291 

15  852.909  6.7^9  2  1.308  0.'.a5  -C.725  2.655  0.'i90-  0.95  1  1  .537 

16  989.397  6  .8S  7  2  1  .706  C.562  -0.576  2  .257  C.'i59  l.l9'i  1.76C 

1  7  1  126.067  7  .C26  22.320  C.6'iC  -O.'i'i?  1.6'.3  1.05'i  l.'»25  l.9'i7 

18  1262.  736  l.liil  22. 7AC  C.7  17  -0  .  332  1  .22*.  1  .293  1  .631  2  . 085 

19  1399. 'iC6  7.2'!'.  22.C7'i  0  .795  -C.229  C.ae9  l.'iC9  l.tiCC  2.163 

20  1536.076  7.  33  7  23.^99  0.8  73  -C.136  C.'.6'i  1.799  1  .V21  2.171 

2  1  1672. 7<t6  7.'i22  23  .766  C.95C  -0.051  C.  197  1.87C  1  .988  2  .096 
22  1760.32*.  7. '.73  23.963  l.CCC  O.OCO  C.OOO  2.0CC  2.000  2  . COO 


LAW    TYPE    1    :  LN(Y-») 


LSING        6   POINTS    (    PEP  = 

13.00  :t 

CF 

E.LAYtR 

) 

STANCARO   ERRCR   OF  ESTI^'ATE 

SE  = 

C 

.201E-C1 

2NC. -ORDER  REGR.CCEFF. 

B(2  )  = 

0 

.771E-06 

VIRTUAL   CRIGIN  DISTANCE 

EPS  - 

C.0C03'i 

( 

IN 

HETERS  ) 

VIRTUAL   ORIGIN  DISTANCE 

EP-»  = 

9.213 

( 

IN 

Y  + 

COCRC. 

; 

INTERCEPT 

AP  = 

3.630 

( 

IN 

U* 

COCRO. 

) 

KARfAN  COEFFICIENT 

VK  = 

0.392 

WAKE  STRENGTH 

PI  = 

0.2^7 

ECUNCARY   LAYER  THICKNESS 

C4  = 

175  1.862 

( 

IN 

Y-» 

COORD. 

) 

REFERENCE   FLCW  VELOCITY 

V^+  = 

23.963 

( 

IN 

U-» 

COORC. 

) 

LAW    TYPE    1    :    VALUES   AFTER   CRIGIN  CORRECTION: 


1 

Y4 

LN{Y-»  ) 

u-» 

Y4/C-* 

LN( Y/0) 

UW-L* 

WAKF 

CCLtS 

FINLEY 

1 

66 

.833 

'i  .2C2 

I'l 

.363 

0.C3E 

-3.266 

9-6C0 

0.0C2 

0.00  7 

0.067 

2 

9'i 

.120 

.5'.  5 

15 

.2'.5 

C.C5'. 

-2.92'. 

8.718 

0.0  1'. 

0.0  1'. 

C.C97 

3 

12  1 

.318 

<.  .798 

1  5 

.65A 

0.069 

-2.670 

8.110 

-0.0'.9 

0.02't 

C.13C 

.'i  3<> 

5.CCC 

16 

.A12 

0.085 

-2.'f68 

7.551 

0.0  19 

0.035 

0  .  16'. 

5 

175 

.'.72 

5.167 

16 

.^5 

O.ICC 

-2. 301 

7.118 

0.029 

0.0-19 

C.  199 

6 

229 

.3'.3 

5. '.35 

1  7 

.50  1 

G.131 

-2.03J 

6.'^62 

-0.C16 

0.083 

C.275 

7 

256 

.188 

5.5'i6 

1  7 

.908 

0.  I't6 

-1.923 

6. 055 

0.182 

C.lCi 

0.31"^ 

8 

309 

.728 

5.736 

le 

.355 

0.177 

-1.733 

5.6Cd 

0.122 

0.15C 

C.397 

188 


9 

.163.  108 

5 

.895 

18 

.768 

C.207 

-1 

.574 

5 

.195 

0.133 

0.205 

0.483 

10 

M  16.377 

6 

.022 

19 

.2  18 

0.238 

-1 

.437 

4 

.745 

0.293 

0.266 

C  .  5  7  3 

1 1 

'i6S.5e5 

t 

.  152 

19 

.-15  1 

C.268 

-1 

.317 

4 

.5  12 

C.  175 

0.334 

0.666 

12 

522.780 

6 

.259 

19 

.750 

C.298 

-1 

.209 

4 

.2  13 

0.2  14 

0.4C8 

0.760 

13 

602.658 

6 

.^C  1 

2C 

.246 

C  .34<i 

- 1 

.067 

3 

.7  18 

0.424 

0.529 

0.906 

IM 

70<3.577 

6 

.565 

2C 

.729 

0.4C5 

-0 

.904 

3 

.234 

0.530 

0.  ro6 

I  .  101 

15 

6 

.739 

2  1 

.308 

0.482 

-c 

.730 

2 

.655 

0.743 

0.944 

1  .343 

16 

980.935 

6 

.689 

2  I 

.7C6 

C.56C 

-0 

.580 

2 

.257 

C.767 

1.187 

1  .570 

1  7 

1  117.605 

7 

.0  19 

22 

.320 

0.636 

-c 

.44<v 

1 

-643 

1.213 

1  .420 

1.770 

18 

125*.. 275 

7 

.  13A 

22 

.7<iO 

0.716 

-0 

.334 

1 

.224 

1.4  12 

1  .628 

1  .931 

IS 

139C.9'»5 

7 

.236 

22 

.07^1 

0.794 

-0 

.231 

0 

.889 

1.523 

1.796 

2  .C4C 

20 

1527. 61't 

7 

.33  1 

23 

.499 

0.872 

-0 

.137 

0 

.464 

1.8  19 

1.920 

2.067 

2  1 

166<i.2e<i 

7 

.<i  17 

23 

.766 

0.950 

-0 

.05  1 

c 

.197 

1.895 

1.986 

2  .06  1 

22 

1751.862 

7 

.<t6e 

23 

.963 

l.COC 

0 

.000 

0 

.000 

2.000 

2.U0C 

2.CCC 

L^V.   TYPE    1   :  LN(Y-t) 
LSING        7   POINTS    (    FEP  = 
STANCARO   ERROR   CF  ESTIMATE 
2ND. -ORDER  REGR.CCEFf. 
VIRTUAL   ORIGIN  DISTANCE 
VIRTUAL   ORIGIN  DISTANCE 
INTERCEPT 

KARMAN  COEFFICIENT 
KAKE  STRENGTH 
ECUNCARY   LAYER  THICKNESS 
REFERENCE   FLOW  VELOCITY 


15.00  X 

CF 

e. LAYER 

> 

SE  = 

0 

.374E-C1 

E(2)  = 

0 

.91  It-06 

EPS  = 

C. 00079 

( 

IN 

METERS  ) 

EP-f  = 

21.482 

( 

IN 

Y4  COORD.) 

AP  = 

1.897 

( 

IN 

U+  CCOKD.) 

VK  = 

0.350 

P I  = 

0.127 

D4  = 

1  764.  13  1 

( 

IN 

Y-»  CCCRO.) 

Vf  ■♦  = 

23.963 

( 

IN 

U+  CCORD.) 

LA^ 

I 
1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
1 1 
12 
1  3 
14 
15 
16 
17 
18 
19 
20 
21 
22 


TYPE  1 

79 
106 
133 
16C 
187 
24  1 
266 
321 
375 
428 
481 
535 
614 
721 
856 
993 
1 129 
1266 
1403 
1539 
1676 
1764 


VALUES  AFTER 


Y-» 

.102 
.389 
.587 
.703 
.74  1 
.6  13 
.458 
.997 
.377 
.646 
.854 
.049 
.927 
.646 
.7  17 
.204 
.874 
.544 
.2  14 
.864 
.553 
.131 


LN(Y-»  ) 

4.37  1 

4.667 

4.695 

5.060 

5.235 

5.467 

5.592 

5.775 

5.926 

6.06  1 

6.176 

6.262 

6.422 

6.562 

6.752 

6.9C  1 

7. 030 

7.144 

7.247 

7.339 

7.424 

7.475 


14 
15 
15 
16 
16 
17 
17 
18 
18 
19 
19 
19 
20 
2C 
2  1 
2  1 
22 
22 
23 
23 
23 
23 


CRIGIN 
U-» 

.363 
.245 
.654 
.412 
.845 
.501 
.908 
.355 
.768 
.218 
.451 
.750 
.246 
.729 
.206 
.706 
.320 
.740 
-074 
.499 
.766 
.963 


CCRR6CI 

Y-»/C-» 

0.045 

0  .060 

0.C76 

C.091 

C.106 

0.137 

0.152 

0.183 

U.2  13 

0.243 

0.273 

0.303 

C.349 

C.4C9 

0.486 

0.563 

C.64C 

C.  7  1  e 

0.795 

0.673 

0.95C 

l.OCO 


ICN: 
LN(Y/0) 
-3.  1C5 
-2.608 
-2.581 
-2  .396 
-2.240 
-1.968 
-1.863 
-1  .701 
-1.547 
-1-415 
-1.296 
-1  .  193 
-1  .054 
-0.094 
-0.  722 
-0.574 
-C.446 
-0.331 
-0.229 
-0.  136 
-0-051 
O.CCO 


UM-U* 
9.600 
8.718 
8-1 10 
7.55  1 
7.118 
6.462 
6.055 
5.608 
5-195 
4.745 
4.512 
4.213 
3.718 
3.234 
2.655 
2-257 
1-643 
1.224 
0.889 
0.464 
0-197 
Q-OCO 


V^AKE 
-0-03 1 
0.069 
-0.046 
0-039 
0.0  10 
-0.16  7 
0.126 
-0.073 
-0. 142 
0-055 
-0-223 
-0-224 
0.047 
0-119 
0-366 
C.299 
0.976 
1.235 
1.350 
1.79  1 
1.858 
2.000 


CCLES 
O.UIC 
0.018 
0.028 
0.04  1 

0  .055 
0.091 
0.112 
0-  160 
0.2  15 
0.277 
0.346 

0-  42  1 
0.542 
0.719 
0.955 
1.197 

1-  427 

1  .632 
1  .800 
1.921 
1  .968 
2.000 


FINLEY 
C.13C 
C.  1  77 
0.225 
C.275 
0.325 
0.428 

C  .4ec 

C.587 
0.695 
C.604 
C.913 
1-C22 
1  .185 
1.396 
1  .645 

1  .666 

2  .C45 
2.  1  7C 
2.231 
2.2  17 
2.116 
2.000 


LAh   TYPE  1 


LN(Y4) 


189 

I 

I 


USING        8   POINTS    (    PCP  = 

16.00  X 

OF 

E. LAYER 

STANCAHO   EBRCR  OF  ESIlfATE 

SE  = 

C 

.j'.yE-oi 

2N0. -ORDER  REGK.COfFF. 

e(2)  = 

-C 

.  3C7E-C6 

VIRTUAL   ORIGIN  CISTANCE 

EPS  = 

C.0C06S 

( 

IN 

HETERS  ) 

VIRTLAL   ORIGIN  CISIAKCE 

EP*  = 

16.  7<fC 

( 

IN 

Y-t 

COCRO. 

) 

INTERCEPT 

AP  = 

2.263 

( 

IN 

u-» 

CQQRO. 

) 

KARfAN  COEFFICIENT 

VK  = 

0.356 

KAKE  STRENGTH 

P  I 

0.  l<ie 

ECUNCARY   LAYER  THICKNESS 

C-»  = 

1761.390 

( 

IN 

Y4 

COORD. 

) 

REFbRENCE   FLCh  VELCCITY 

VM4  = 

23.963 

( 

IN 

COCRO. 

) 

LAU    TYPE    I   :   VALUES   AFTER  ORIGIN  CCRRECTION: 


I 

Y* 

LNCY-i) 

u-» 

Y-»/C-» 

LN(Y/0) 

L^'-U•^ 

KAKE 

COLES 

F INLFY 

1 

76.360 

A. 335 

1<(.363 

0.0^13 

-3.  138 

9.600 

-0.018 

0.009 

0.111 

2 

103.6<ie 

<i  .6*1  1 

15.2^15 

C.059 

-2.633 

e.7  18 

C.052 

0.017 

C  .  15*» 

3 

13C.8<i6 

A.e7<i 

15.e5<i 

C.07A 

-2  .600 

6.110 

-0.050 

0.02  7 

0.198 

^ 

157.961 

5.062 

16.<i  12 

C.C9C 

-2.^12 

7.551 

0.026 

0.039 

0.2't3 

5 

165.000 

5.22C 

16.6^5 

C.1C5 

-2.25A 

7.116 

C.0C9 

0  .C5<i< 

0.289 

6 

238.871 

5  .'iTe 

17.501 

C.136 

-1  .998 

6.A62 

-C.  13  1 

0.069 

C.383 

7 

265.7  16 

5.562 

17.908 

0.151 

-1.891 

6.055 

0.  1  3*1 

0.1  IC 

0.A32 

e 

319.256 

5.766 

16.355 

C  .  16  1 

-  1 .7C8 

5. 600 

-0.02A 

0.156 

C.532 

9 

372.636 

5.92  1 

18.766 

0.2  12 

-1.553 

5.195 

-0.07  1 

0.2  13 

0.633 

10 

A25.9C5 

6.05^ 

19.218 

0.2*12 

-1.^20 

^.7A5 

0.116 

0.275 

0.737 

1 1 

A79. 1  13 

6.172 

19.^^5  1 

C.272 

-1.3C2 

^1.512 

-C.  1  15 

0.3*t3 

C.e<i2 

12 

532. 3C8 

6.277 

19.750 

C.302 

-1-197 

^.2  13 

-C.  IC^ 

0.<i  18 

0.9*17 

1  3 

612.  166 

6  .'I  I  7 

2C.2^6 

C  .3'ie 

-1.0  57 

3.718 

0.150 

0.539 

1  .  104 

IM 

719. 1C5 

6.57E 

2C.729 

C.'iC6 

-0  .696 

3.23<t 

C.232 

0.7  16 

1.311 

15 

653.975 

6.75C 

21.306 

o.'tes 

-0.72". 

2.655 

C.<i  7C 

0.952 

1.558 

16 

990.^.63 

6.696 

2  1  .  7  C  6 

0.562 

-0.5/6 

2.257 

C.'»3  1 

1.195 

1  .760 

17 

1127.133 

7.C27 

22.320 

C.6<iC 

-0  .'i'i6 

1.6*13 

1.0*12 

1.<.26 

I  .965 

1  b 

1263.802 

7.  1*12 

22.7<iC 

c.7ie 

-0.332 

1  .22*1 

1.2fc<i 

1.631 

2.101 

19 

l'»C0.^72 

7.2A5 

23. C  7'. 

C.795 

-0.229 

C.889 

1.399 

1  .dCC 

2.176 

20 

1  537. IA2 

7.32e 

23.'i99 

0.873 

-0.  136 

0.^6<i 

1.796 

1.921 

2.179 

2  1 

1673.612 

7.  A23 

2  3  .  766 

C.95C 

-0.051 

0.197 

1.666 

1.966 

2.  ICC 

22 

1761.390 

7.^7'i 

23.963 

1  .CCC 

C.OOO 

C.OOO 

2. CCC 

2  .OCO 

2  .CCC 

LAh    TYPE    1    :  LN(Y-») 

LS1N6        9   POINTS    (    PEP  = 

21.00  X 

OF 

t. LAYER 

) 

STANDARD   ERRCR  OF  ESTIMATE 

SE  = 

C 

.329E-C1 

2NC. -ORDER  REGR.CCEFF. 

I!  (  2  )  = 

-C 

-58  lE-06 

VIRTLAL   ORIGIN  DISTANCE 

EPS  = 

C. 00060 

( 

IN 

METERS  ) 

VIRTLAL   ORIGIN  DISTANCE 

fcP*  = 

16.353 

( 

IN 

Y4  COORC. 

) 

INTERCEPT 

AP 

2-567 

( 

IN 

0*  COORD. 

) 

KARWAN  COEFFICIENT 

VK 

0.365 

UAKE  STRENGTH 

PI  = 

0.166 

eCUNCARY    LAYER  THICKNESS 

D-» 

1  759.003 

( 

IN 

Y-»  COORD. 

REFERENCE   FLCV.  VELCCITY 

\H-*  = 

23.963 

( 

IN 

{J-*  CCCRD. 

) 

LAW   TYPE    1    :   VALUES   AFTER  CRIGIN  CORRECTION: 


1 

Y-» 

LN(  Y-«  ) 

L-i 

Y-»/C* 

LN (Y/D) 

LH 

-04 

k«AKE 

. COLES 

F INLEY 

1 

73.973 

*i.  3C<t 

1*1.263 

0  .0<i2 

-3.  169 

9. 

600 

-0.0C6 

0.009 

0.C99 

2 

101.261 

M,tie 

15.2A5 

C.C56 

-2.855 

6. 

718 

O.U'i  1 

0.0  16 

C.13e 

3 

1  26.*i59 

*t.65t 

15.65'! 

CO  73 

-2.617 

8. 

110 

-0.055 

0.026 

0.179 

155.57*1 

5.C*i7 

le.*.  12 

c.oee 

-2.*t25 

7. 

55  1 

0.016 

0-036 

C.221 

190 


5 

182.613 

6 

236.484 

7 

263.329 

8 

316.669 

9 

370.249 

IC 

422.516 

i  1 

476.726 

12 

529.921 

13 

6C9.799 

14 

716.718 

15 

851.568 

16 

968.076 

17 

1124.746 

16 

126  1.415 

19 

1396.065 

10 

1534.755 

1 1 

1671.425 

22 

1759-C03 

5.2C7  16.845 

5.466  17.501 

5.573  17.908 

5.756  16.355 

5.914  16.768 

6.  C49  19.218 
6.167  19.451 
6.273  19.750 
6.413  2C.246 
6,575  20.729 
6.747  21.306 
6.896  21.706 

7.  C25  22.320 
7.14C  22-74C 
7.243  23.C74 
7.226  23.499 
7.421  23.766 
7.473  23.963 


C.104 

-2.265 

0.134 

-2.007 

0  . 1  5C 

—1.899 

O.lbC 

-1.71'. 

C.2  IC 

-1.558 

0.241 

-1  .424 

C.27  1 

-I  .306 

Q.3C1 

-1.2C0 

0.347 

-1  .059 

C.407 

-0.898 

0.484 

-0.725 

0.562 

-0.577 

C.639 

-0.447 

C.7  17 

-0.333 

0.795 

-0.230 

0.873 

-0.  136 

0.950 

-0.051 

1  .CCC 

0.000 

7.116 

COG  5 

6.462 

-0.112 

6.055 

0.135 

5.606 

0.0C3 

5.195 

-0.029 

4.745 

0.152 

4.512 

-0.049 

4.213 

-0.03C 

3.7  18 

0.213 

3.234 

0.3C3 

2.655 

0.535 

2.257 

0.5  1^ 

1.643 

1.063 

1.224 

1.3  14 

C.889 

1.429 

0.464 

1.602 

0.197 

1.875 

COCO 

2. CCC 

0.053 

C  .  265 

0.066 

C  . 354 

0.109 

C  .  4  0  1 

0.156 

C.496 

0.211 

0.594 

0.273 

C.694 

0.341 

C.795 

0.4  15 

0.696 

0-537 

1  .C52 

0.713 

I  .256 

0.950 

1  .501 

1.193 

1.  /25 

1.424 

1.9  14 

1  .630 

2  .C56 

1.  /99 

2  .  14C 

1.921 

2.155 

1.988 

2.C9C 

2.0CC 

2. CCC 

LAW    IYp'e    1   :  LN(Y-»J 

LSING      IC   POINTS    (    PEP  = 

24. OC  \ 

CF 

e. LAYER 

) 

STANCARC   EBRCR   OF  ESTIMATE 

SE  = 

0 

-356E-01 

2KC. -ORDER  REGR.CCEFF. 

0(2  )  = 

0.250E-07 

VIRTUAL   ORIGIN  CISIANCE 

EPS  = 

C.00C7  7 

( 

IN 

VIRTUAL   ORIGIN  DISTANCE 

EP+  = 

21.118 

( 

IN 

INTERCEPT 

AP  = 

1.984 

( 

IN 

KARHAN  COEFFICIENT 

VK  = 

C.352 

kiAKE  STRENGTH 

PI  = 

C.  134 

ECLNDARY   LAYER  THICKNESS 

D+  = 

1763.768 

( 

IN 

REFERENCE   FLCh  VELOCITY 

Vf4  = 

23.963 

( 

IN 

LAM 

I 
1 
2 
3 
4 
5 
6 
7 

a 

9 
10 

1 1 

12 
1  3 
l<i 
1  5 
16 
1  7 
18 
19 
20 
21 


TYPE  1 

76 
106 
133 
16C 
167 
241 
268 
321 
375 
426 
481 
534 
6  14 
721 
856 
992 
1  129 
1266 
14C2 
1539 
1676 


VALUES  AFTER 


Y4 

.738 
.025 
.224 
.339 
.378 
.249 
.094 
.633 
.013 
.262 
.490 
.686 
.563 
.483 
.353 
.841 
.510 
.160 
.850 
.520 
.190 


LN(Y-») 

4.366 

4.664 

4.892 

5.077 

5.233 

5.466 

5.591 

5.773 

5.927 

6.  C6C 
6.177 
6.262 
6.42  1 
6.56  1 
6.752 
6. 901 

7.  C3C 
7.144 
7.246 
7.339 
7.424 


14 
15 
15 
16 
16 
17 
17 
18 
16 
19 
19 
19 
2C 
2C 
2  1 
2  1 
22 
22 
23 
23 
22 


ORIGIN 

u-» 

.363 
.245 
-854 
.412 
-845 
.501 
.906 
.355 
.768 
.218 
.451 
.750 
.246 
.729 
-3C8 
.706 
.320 
.  74C 
.C74 
.499 
-766 


CORRECTION: 
Y4/D-*  LN(Y/U) 


0.045 
0  .060 
0.076 
C.09  1 
C.1C6 
C.137 
0.152 
0.182 
0.2  13 
C-243 
C.273 
C.303 
0.346 
0.4C9 
0.486 
0.563 
C.64C 
C.7  18 
C.795 
C.873 
0.950 


3.109 
2.812 
2.583 
2. 398 
2.242 
1.989 
86^ 
1.702 
1.548 
4  15 
1  .298 
194 
I  .05«( 
894 
0.723 
0.575 
446 
331 
229 
136 
0.051 


-1 


-1 


-1 


-0 


Y-f  COORD.) 
U4  COORD.) 


COCRD. ) 


UP-U+ 
9.600 
8.7  18 
6.110 
7.551 
7.118 
6.462 
6.055 
5-6Ce 
5.195 
4.745 
4.512 
4.2  13 
3.716 
3.234 
2.655 
2.257 
1.643 
1.224 
0.869 
0.464 
0.197 


MAKL 
-0.036 
0.063 
-C.04 1 
0.044 
0.02  1 
-C.14 1 
0.142 
-0.04  1 
-0.102 
0.09  1 
-0.170 
-0.  166 
0.097 
0.172 
0.414 
0.356 
1.007 
1.258 
1.37  1 
1.796 
1.662 


COLtS 
0.010 
0.018 
0.028 
0.04  1 
0.055 
0.091 
0.1  12 
0.160 
0.215 
0.277 
0.346 
0.42C 
0.542 
0.7  18 

0.  955 
1.196 
1.427 
1.632 

1.  eco 

1  .92  1 
1.986 


FINLEY 
C.  124 
0.  169 
C.2  16 
C  .263 
C.312 
C.4  12 
C.463 
C.567 
C.672 
C.  779 
0.687 
C.994 
1.155 
1  .365 
1.612 
1.633 
2.C14 
2.  144 
2.21C 
2. 202 
2.110 
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22      1763. Tea        T.^iTS     23. '363        1  .000       O.CCG        0.000        2.0C0       2.0GC        2. COG 


L/JW   TYPE    I   :  LN(Y-») 


liSING      11   POINTS    (    PEP  = 

27. CC  % 

CF 

e. LAYER 

) 

STANC4PC   ERROR   OF  ESTIt-ATE 

SE  = 

0 

.371E-CI 

2NC.-0RCER  REGK.CCEFF. 

E(2  J  = 

c 

VIRTLAL   ORIGIN  DISTANCE 

EPS  = 

C.0GC63 

( 

IN 

HETCRS  ) 

VIRTUAL   ORIGIN  CISTANCE 

EP4  = 

17.3^1 

( 

IN 

Y* 

COCRC. 

) 

INTERCEPT 

AP  = 

2.<i3'. 

( 

IN 

U* 

COORD. 

) 

KARMAN  COEFFICIENT 

VK  - 

0.362 

KAKE  STRENGTH 

PI  = 

C.  157 

ECUNDARY   LAYER  THICKNESS 

D-»  = 

1  759.95*1 

( 

IN 

Y-» 

COORD. 

) 

REFERENCE   FLOW  VELOCITY 

VP-*  = 

23.';63 

( 

IN 

U4 

COORD. 

) 

LAh   TYPE    I   :   VALUES  AFTER  ORIGIN  CORRECTION: 


I 

Y4 

LN(Yt) 

U-» 

Y-»/C-» 

LN(Y/0) 

UM-U+ 

WAKE 

COLES 

FINLEY 

I 

74.924 

4.316 

14 

.363 

G.C43 

-3.  157 

9. 600 

-o.oce 

0.009 

C.1G4 

2 

IC2.212 

4.627 

1  5 

.245 

o.cse 

-2.846 

.  8.718 

0.046 

0.0  17 

C.145 

3 

129.4 10 

4.863 

15 

.854 

0.074 

-2.610 

6.110 

-0.054 

0.027 

C.  187 

'156.52  5 

5.C53 

16 

.4  12 

C  .089 

-2.420 

7.55  1 

C.02C 

0.039 

C.231 

5 

183.564 

5.213 

16 

.845 

0.104 

-2.260 

7.118 

C.0C4 

G.C53 

C.275 

6 

237.435 

5.47C 

17 

.501 

0.135 

-2.0GJ 

6.462 

-0.  124 

0.088 

0.367 

7 

264.280 

5.577 

17 

.908 

C.15C 

-1  .696 

6.055 

G.  13  1 

0.  IC9 

C.415 

a 

3 17.820 

5.76  1 

le 

.355 

0.161 

-1.  J  12 

5.606 

-0.0  13 

C.15  7 

C.512 

<3 

37  I .200 

5.917 

18 

.768 

0.2  11 

-1.556 

5.195 

-G.C5 I 

0.212 

C.612 

IC 

424.469 

6  .05  1 

19 

.2  18 

0.24  1 

-1.422 

4.745 

0.132 

0.274 

C.713 

I  1 

477.677 

6.169 

19 

.45  1 

C.27  1 

-1  .3C4 

4.5  12 

-0.083 

0.342 

c.e  16 

12 

530.872 

6.275 

19 

.750 

0.302 

-1.199 

4.2  13 

-C.C67 

0.4  16 

C  .920 

13 

61C.750 

6.415 

20 

.246 

C.347 

-1.058 

3,7  18 

0.18  1 

0.538 

1  .C76 

14 

7  17.669 

6.576 

2C 

.729 

0.4Ct 

-0.697 

3.234 

C.26e 

C.7  14 

1.281 

I  5 

852.539 

6.748 

2  1 

.308 

0.484 

-0.725 

2.655 

C.5C3 

0.951 

1.527 

16 

989.027 

6.897 

2  1 

.706 

C.562 

-0.576 

2.257 

C.474 

1.193 

1.750 

17 

1 125.697 

7.C2f 

22 

.  220 

C.64C 

-0.447 

1  .643 

1.063 

1.425 

1.937 

16 

1262.367 

7.14  1 

22 

.740 

C.7  17 

-0.332 

1.224 

1.299 

1.631 

2  .077 

IS 

1399. C36 

7.244 

23 

.C74 

0.795 

-0.230 

0.689 

1.4  14 

1  .800 

2.157 

20 

1535.706 

7.337 

2  3 

.499 

C.ti73 

-0.136 

C.464 

1  .8CC 

1.921 

2.  166 

21 

1672.376 

7.422 

23 

.  766 

C.95C 

-C.C51 

0.197 

1.872 

1  .988 

2  .C94 

22 

1759.954 

7.473 

23 

.963 

1  .CCC 

COCO 

c.ooo 

2.UC0 

2.0C0 

2  .CCC 

LAW    TYPE    I    :  LN(Y-») 

USING      12   POINTS    (    PEP  = 

30.00  X 

OF 

E. LAYER 

) 

STANCARO    ERKCR   OF  ESTIMATE 

SE  = 

0 

.360E-C1 

2N0. -ORDER  REGK.CCEFF. 

e(2)  = 

G 

.  362E-06 

VIRTUAL   ORIGIN  CISTANCE 

EPS  = 

0.00058 

( 

IN 

PETERS  ) 

VIRTUAL   ORIGIN  DISTANCE 

EP-»  = 

15.877 

( 

IN 

Y-»  COCRC. 

) 

INTERCEPT 

AP  = 

2.59t 

< 

IN 

U-t  COCRC. 

) 

KARKAN  COEFFICIENT 

VK  = 

0.365 

WAKE  STRENGTH 

PI  = 

0.  166 

eCUNCARY   LAYER  THICKNESS 

Ot  = 

1  758.526 

( 

IN 

Y-»  COORD. 

) 

REFERENCE   FLCW  VELOCITY 

VM-*  = 

23.963 

( 

IN 

U-».  CGORU. 

) 

LAW   TYPE    1   :   VALUES   AFTER  ORIGIN  CORRECTION: 

I  Y*  LN(Y<)       U«  Y4/C-*      LN(Y/0)      UM-U*  WAKE       COLES  FINLEY 
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I 


1  73.'»97  ^.297  1^.363  C.0^2  -3.  175  9.600  0.0C2  0.0C9  0.098 

2  ICC.78A  ^.613  15.2<i5  0.05  /  -2.659  8.7  18  C.O'il  0.016  C.138 

3  127.983  ^.852  15.85'i  0.073  -2.620  8.  110  -0.059  0.026  C.179 
<•        155.098  5.C'^'t  I6.'il2  C.Cte  -2.'i28  7.551  0.0  12  0.038  0.22  1 

5  182.  136  5.2C5  16.8A5  C.ICi  -2.267  7.118  -0.CC2  0.052  C.26'i 

6  236. oca  5.^6'»  17.501  C.13A  -2.0CU  6.<»62  -C.12C  0.088  C.35^ 

7  262.853  5  .572  17.908  C.l'.9  -1.9CI  6.055  0.  126  C.lCe  C.^CC 

8  3  16.392  5.757  18.355  CISC  -1.715  5.6C8  -0.0C7  0.  156  C.'i9t 

9  369.772  5.913  16.768  C.21C  -1.559  5.195  -0.028  0.210  C.593 

10  'i23.0'«I  t.C'i7  19.218  C.2<il  -1.^125  A.7A5  C.l<i2  0.272  C.693 

11  A76.2<i9  6.  166  19.'t51  C.271  -1.3C6  ^1.512  -0.C58  0.3^1  C.795 

12  529. '1^5  6.272  19.750  C.3C1  -1.2C0  <i.213  -0.039  0.<.15  0.898 

13  fcC9.322  6.'il2  2C.2A6  C.3'i6  -l.CtO  3.718  C.2C5  0.536  1  .C52 
1^        716.2^2  6.57<i  2C.729  C.^C7  -0.898  2.23<»  C.295  0./  1  3  1  .256 

15  85  1  .  1  12  6.  7't7  21.308  O.Ab<i  -0.  726  2.655  0.  529  0.95C  1.501 

16  987.599  6.895  21.706  0.562  -0.577  2.257  0.5C9  1.192  1.726 

17  112^.269  7  .C25  22.  320  C.639  -0.<.<(7  1.6^^3  1.079  1.'.2^  1.9l<i 

18  1260.939  7.  1^C  22.7^.0  C./17  -C.  333  1  .22'i  1.3U  1.63C  2.C57 

19  1397.609  7.2^.3  23.07^1  C.795  -C.23U  C.889  1.'.27  1.799  2. I'll 

20  p3'i.279  7.336  23  . <i99  0.872  -0.136  0.'.6'i  1.8CI  1.921  2.155 

21  167C.9'i8  7.A2  1  23.766  0  .95C  -0.05  1  0.  197  1  .87*.  1  .986  2  .C9C 

22  1758.526  7.<i72  23.963  l.OCC  O.OCO  0.000  2.0C0  2.000  2.C0C 


L/iW    TYPE    1   :  LN(Y-») 


LSING      13   POINTS    (    PEP  = 

35  .00  3; 

OF 

t. LAYER 

) 

5TANCAR0   ERRCR   CP  ESTIMATE 

SE  = 

C 

.'•Odt-C  1 

2N0.-CRCEH  REGR.CCEFF. 

P(2)  = 

0 

.67'iE-06 

VIRTLAL   ORIGIN  DISTANCE 

EPS  = 

C.0007<. 

( 

IN 

METERS  ) 

VIRTUAL   ORIGIN  CISTANCE 

tP-»  ^ 

20.339 

( 

IN 

Y4 

CUCRC. 

) 

INTERCEPT 

AP 

2.  1  10 

( 

IN 

U* 

COCRC. 

) 

KARHAN  COEFFICIENT 

VK  = 

0.355 

WAKE  STRENGTH 

P I  = 

C  .  1  <i  2 

ECUNCARY   LAYER  THICKNESS 

0*  = 

1762.968 

( 

IN 

Y  + 

CCURC. 

) 

REFERENCE   FLCW  VELOCITY 

VM-f  = 

23.963 

( 

IN 

COORD. 

) 

LAW    TYPE    1    :    VALUES   AFTER   ORIGIN  CORRKCriON: 


I 

Y-t 

LN(Y-»  ) 

Y-»/C-» 

LN (Y/Dj 

WAKE 

COLES 

F  INLE Y 

1 

77.959 

4.356 

l'i.363 

0.044 

-3.119 

9.600 

-0.037 

0.010 

C.117 

2 

105.2<i6 

<!  .656 

15.245 

C.C60 

-2.618 

8.718 

0.055 

0.0  18 

0.160 

3 

132. A^i^ 

<i.ee6 

15.854 

0.075 

-2.589 

8.110 

-0.042 

0.028 

0.205 

<i 

159.560 

5.072 

16.4  12 

0.09  1 

-2  .402 

7.551 

0-042 

0.040 

0.25  1 

5 

186.598 

5.229 

16.845 

0  .106 

-2.240 

7.118 

C-024 

0  .055 

0.298 

6 

2<iO.'i70 

5.Ae3 

17.501 

0.136 

-1.992 

6.462 

-0.123 

0.090 

0.395 

7 

267.315 

5.5Ee 

1  7.908 

0.152 

-1.886 

6.055 

0.149 

0.111 

0.445 

e 

320.85^ 

5.771 

ie.355 

0.182 

-1 . 704 

5.608 

-C.018 

0-159 

0.546 

9 

37'i.23'i 

5.925 

ie.76d 

0.2  12 

-  I .550 

5.195 

-0.070 

0.214 

0.649 

10 

'•27.503 

6.058 

19.218 

0.242 

-1.4  17 

4.745 

0.119 

0.276 

0.754 

1 1 

^80.71 1 

6.175 

19.451 

0.273 

-1 .299 

4.5  12 

-0.124 

0.345 

C.859 

12 

533.906 

6  .2eo 

19.750 

C.3C3 

-1-195 

4.213 

-0.116 

0.4  19 

0.965 

13 

613.78'! 

6.420 

20.246 

0.34R 

-1.055 

3.716 

0.140 

.  0.5^11 

1  .124 

1^ 

720.70'! 

6.560 

20.729 

0  .409 

-C.8S5 

3.234 

C.2  19 

0.7  17 

1.332 

15 

855.57'i 

6.752 

2  1.208 

0.465 

-0  .723 

2.655 

C.45  7 

0.954 

1.579 

16 

992.061 

6.900 

2 1.706 

C.563 

-0.575 

2.257 

0.4  10 

1  .196 

1  .faO  1 

17 

1128.731 

7.029 

22.320. 

C.640 

-0.446 

1.643 

1.034 

1.426 

1  .984 

193 


16  1265.401 

19  1*102.071 

20  1  538. 7*11 

21  1675. AlO 

22  1762.968 


7.1'i3  22-740 

7.246  23.C74 

7.33*;  23.499 

7.424  23.766 

7.475  23.963 


C.718  -0.332 

0.795  -0.229 

0.873  -0.136 

0.  95C  -0.051 

1.  CCC  0.000 


1.224  1.276 

0.889  1.391 

0.464  1.799 

0.197  1.867 

0.000  2.0C0 


1.632  2.117 

1.8CU  2.169 

1.921  2.188 

1.988  2.IC3 

2.U00  2. COO 


L;»W    1YP6    1   :  LN(V4) 


USING      14   POINTS    (    PEP  = 

41.00  % 

OF 

E.LA YfcR 

) 

STAKCARD   ERRCK   OF  ESTIMATE 

SE  = 

0 

.444f-01 

2KC.-CR0ER  REGR.CCEFF. 

U(2)  = 

0 

.809E-06 

VIRTUAL   CRIGIN  DISIANCE 

EPS  = 

0.00090 

( 

IN 

PETERS  ) 

VIRTUAL   CRIGIN  DISTAKCE 

£P*  = 

24.628 

( 

IN 

Y-» 

CCCRC. 

) 

INTERCEPT 

AP  = 

1.664 

( 

IN 

u-» 

CCCRC. 

> 

KARfAN  COEFFICIENT 

VK  = 

0.346 

WAKE  STRENGTH 

PI  = 

C.  124 

ECUNCARV   LAYER  THICKNESS 

0*  = 

1767.278 

( 

IN 

Y-t 

COORD. 

) 

REFERENCE   FLCW  VELOCITY 

Vf  ■»  = 

23.963 

( 

IN 

u-» 

CCCRO. 

) 

LAV«    lYP.E    1    :    VALUES   AFTER   CRIGIN  CORRdCIICN: 


I 

Y-» 

LN(Y-») 

U4 

Y*/C-» 

LN  (Y/D) 

u^'-u♦ 

wAKE 

COLES 

FINLEY 

1 

82.240 

4.4  IC 

14.363 

0  .047 

-3.067 

9.600 

-0.068 

0.011 

C.  137 

2 

1C9.535 

4.696 

15.245 

0.062 

-2.781 

8.7  18 

0.067 

0.019 

C.185 

3 

136.734 

4  .9  1  E 

15.654 

C.077 

-2.  5  59 

d.  1  10 

-0.023 

0.029 

C.234 

4 

163.849 

5. 099 

16.4  12 

C.093 

-2.37a 

7.551 

0.076 

0.042 

C.284 

5 

19C.8eO 

5.252 

16.645 

0 .  ice 

-2.226 

7.116 

0.057 

0.057 

C.335 

6 

244.759 

5.5CC 

17.501 

C  .  1  38 

-1.97/ 

6.462 

-C.  I  17 

0.093 

C.439 

7 

27  1. 604 

5.6C4 

17.908 

0.154 

-1.873 

6.055 

0.182 

0.1  14 

0.492 

e 

325.143 

5.764 

16.355 

C.  184 

-1.693 

5  .608 

-0.02C 

0.162 

C.599 

9 

378.523 

5.936 

18.766 

C.2  14 

-1.541 

5.195 

-C.094 

0.2  id 

C.706 

IC 

43  1.792 

6.066 

19.2  18 

0.244 

-1.409 

4.745 

0.1C4 

0.280 

0.617 

1  I 

485. OCO 

6.  164 

19.45  1 

0.274 

-1.293 

4.512 

-0.164 

0.349 

C.927 

12 

536.196 

6.266 

19.750 

0.305 

-  1 . 169 

4.2  13 

-0.169 

0.424 

1  .C37 

13 

6  16.073 

6.427 

20.246 

0.35C 

-1.05  1 

3.718 

0.08  1 

0.545 

1  .20C 

14 

724.993 

6.586 

20.729 

0.4  IC 

-0.891 

3.234 

0.145 

0.722 

1.4  12 

1  5 

8  59.8  63 

6.757 

2  1  .308 

0.487 

-C  .  720 

2.655 

0.367 

0.9^6 

1  .660 

16 

996. 35C 

6  .9C4 

2  I  .706 

C.564 

-0.573 

2.257 

0.310 

1.199 

1.680 

1  7 

1 133.020 

7.C33 

22.320 

C.64  1 

-0.445 

1.643 

0.99C 

1.429 

2.C57 

18 

1269.690 

7.147 

22.740 

c.7ie 

-C.331 

1.224 

1.246 

1  .634 

2.181 

19 

14C6.360 

7.249 

23-C74 

0.796 

-0.22d 

C.889 

1.356 

1.8C1 

2.239 

20 

1543.030 

7.342 

23.499 

0.873 

-0.136 

C.464 

1.796 

1.922 

2  1 

1679.700 

7.426 

23.766 

C.95G 

-C.C51 

C.  197 

1.859 

1  .986 

2.116 

22 

1767.278 

7.477 

23.963 

1.000 

o.oco 

c.coo 

2.CCC 

2.0CC 

2.CCC 

LAV.    TYPE    1    :  LN(Y-t) 

USING      15   POINTS    (    FEP   =  48.00  : 

STANCARD   ERRCR   OF    ESTIMATE  SE  = 

2NC.-0RCEP   REGK.CCEFF.  e(2)= 

VIRTUAL   CRIGIN   DISTANCE  EPS  = 

VIRTUAL   CRIGIN  DISTANCE  EP-»  = 

INTERCEPT  AP  = 

KARMAN   COEFFICIENT  VK  - 

WAKE    STRENGTH  PI  - 

ECUNCARY   LAYER    THICKNESS  C-»  = 


CF 
0 


E  .LAYER 
537E-C1 
0.99  1E-C6 
C.CCl  15 
31.374 
1  .CCO 
0.334 
0.099 
1774.024 


IN 
IN 
IN 


ftlEKS  ) 
Y*  .COCRD.  ) 
U-t  COORD.) 


(    IN   Y-»  COORD.) 
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REFEKENCE  FLCh  VELCCMY  VK+  = 


23.963   (    IN  COORC.) 


L/»h    TYPE    1    :    VALUES   AFTER   CRIGIN  CCRRfcCTICN: 


i 

Y* 

LN(Y-»  ) 

LI-» 

Y-»/04 

LN ( Y/0) 

HAKE 

COLES 

F 1 KLtY 

88.99'» 

.  ^  G  9 

1 4 

.363 

0  .050 

-2.992 

9.6C0 

-0.19  8 

0.012 

0.175 

c 

1 16.262 

A  »  7  5  6 

.24  5 

0.066 

-2.725 

8.718 

0.060 

0.021 

C  .23  1 

1    3  80 

4.966 

1  5 

.654 

C  .0  8  1 

-2.5  15 

8.110 

0.012 

0.032 

0.268 

f 

1  7  r  .  S  <3  s 

J  .  A  J  ' 

1  f. 

.Tic. 

0.096 

-2.342 

7.551 

0.150 

0.045 

0.345 

J 

i  ~  '  .  O  J  "t 

.845 

0  .  1 1 1 

-2 .  195 

7.118 

0.12  7 

0.061 

C  .403 

b 

25  1.5C5 

5.527 

1  7 

.501 

C  .  142 

-1.954 

6.462 

-0.C92 

0.096 

C.52C 

7 

278.350 

5.629 

1  7 

.908 

C.157 

-1.852 

6.055 

0.258 

0.119 

0.578 

8 

331.890 

5.8C5 

18 

.355 

0.167 

-1  .676 

5.608 

-0.006 

0.168 

0.697 

9 

385.270 

5.95<i 

le 

.768 

0.2  17 

-1.527 

5.195 

-0.12  I 

0.224 

0.815 

10 

'•  38.539 

6  .ce3 

19 

.218 

0.24  7 

-1.398 

4.745 

0.09  3 

0.287 

0.934 

1  1 

A91.7A7 

6.196 

19 

.45  1 

0.277 

-I  .283 

4.512 

-0.277 

0.  J56 

I  .05  1 

12 

5AA  .9't2 

6.3CI 

19 

.750 

C  .307 

-1.180 

4.2  13 

-0.305 

0.431 

1.166 

13 

62*1.820 

6.<.37 

2C 

.246 

C  .352 

-  1.044 

3.718 

-0.012 

0.552 

1  .339 

lA 

731.739 

6.595 

2G 

.729 

0.4  12 

-0.886 

3.234 

0.C25 

0.728 

1.557 

15 

866.609 

6.765 

2  1 

.308 

C  .486 

-0.716 

2.655 

0.27C 

0.964 

1.606 

16 

10C3.097 

t.91  1 

2  1 

.706 

C.565 

-0.570 

2.257 

0.13  7 

I  .204 

2  .024 

17 

1*139.767 

7.039 

22 

.320 

C  .642 

-0.442 

1.643 

0.919 

1.433 

2  .  190 

18 

1276. 'i36 

7.152 

22 

.740 

C.720 

-0.329 

1.224 

1.193 

1  .636 

2.297 

19 

1^  13.1C6 

7. 254 

23 

.C74 

0.797 

-0.227 

0.889 

1.295 

1.803 

2.232 

20 

I5<i9.  776 

7.346 

23 

.499 

C.874 

-0.135 

0.464 

1.799 

1.922 

2.285 

2  1 

1686. ^<i6 

7.43C 

23 

.766 

C.95  1 

-0.051 

0.197 

1.846 

1.966 

2.144 

22 

177'i.C2'» 

7.46  1 

23 

.963 

1.000 

C  .000 

c.ooo 

2.CCC 

2  .OOC 

2  .CCC 

LAV.    TYPE    1    :  LN(Y-») 


LSING      16   POINTS    (    PER  = 

56.00  ; 

CF 

e. LAYER 

) 

STANCARO   ERRCK   OF  ESTI^ATE 

SE  = 

0 

.53  lE-Cl 

2NC. -ORDER  REGR.CGEFF. 

e(2}  = 

-0 

.  748E-06 

VIRTLAL   CRIGIN  DISTANCE 

EPS  = 

0.00  122 

( 

IN 

METERS  ) 

VIRTUAL   ORIGIN  DISTANCE 

fcp+  = 

33.216 

( 

IN 

Y-* 

CCCRO. 

) 

INTERCEPT 

AP  = 

0.826 

( 

IN 

U* 

COQRO. 

) 

KARfAN  CCEFFICIENT 

VK  = 

0.331 

hAKE  STRENGTH 

PI  = 

0.093 

ECUNDARY   LAYER  THICKNESS 

D+  = 

1775.865 

( 

IN 

Y-» 

COGKC. 

) 

REFERENCE   FLCh  VELOCITY 

VN+  = 

23.963 

( 

IN 

U4 

CQORO. 

) 

LAW    TYPE    1    :    VALUES   AFTER   CRIGIN  CCRRECTICN: 


I 

Y4 

LN(Y4  ) 

Y-»/C-» 

LN(Y/0) 

UM-U4 

nAKE 

CCLfcS 

F  INLEY 

1 

90.836 

4.509 

14 

.363 

C.051 

-2.973 

9.600 

-0.236 

0.0  13 

0.187 

2 

116.123 

4.772 

1  5 

.245 

0.067 

-2.710 

8.718 

0-062 

0.022 

0.246 

3 

145.322 

4.979 

15 

.654 

C  .082 

-2.503 

6.110 

0.022 

0.033 

C  .304 

4 

172.437 

5.  15C 

It 

.412 

C.097 

-2.332 

7.55  1 

0.172 

0.046 

0  .364 

5 

199.475 

5.296 

16 

.845 

C  .  I  12 

-2.  166 

7.116 

0.15  1 

0.062 

0.424 

6 

253.347 

5.535 

17 

.501 

C  .  143 

-  1.947 

6.462 

-0.062 

0.099 

0.544 

7 

280.192 

5.635 

1  7 

.908 

0.156 

-1.847 

6.055 

0.264 

0.12C 

C.6C5 

e 

333.731 

5.8  IC 

1  6 

.355 

0.188 

-1.672 

5.608 

-0.00  1 

0.169 

0.726 

9 

387  .  1  1  1 

5.959 

16 

.768 

0.2  18 

-1.523 

5.195 

-0.125 

0.225 

0.648 

10 

440.380 

6.068 

19 

.218 

0.248 

-1.394 

4.745 

0.093 

0.268 

0.969 

1 1 

493.588 

6.202 

19 

.45  1 

0.2  76 

-1.280 

4.5  12 

-0.3C 1 

0.358 

1  .089 

12 

546.784 

6.3C4 

19 

.750 

0.308 

-1.178 

4.213 

-0.337 

0.432 

1  .206 

13 

626.66  1 

6.44C 

20 

.246 

0.353 

-1.042 

3.718 

-0.038 

0.554 

1  .38  1 
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M  733.561 

15  86e.<i5l 

16  10C<i.938 

17  11^1. 6Ce 
16  1276.276 

19  I'»l<i.9'i8 

20  1551.618 

21  1666.287 

22  1775.865 


6.5Se  2C.729 

6.767  21.306 

6.913  2  1  .7C6 

7.0<iC  22.32C 

7  .  1  53  22  . 7^10 

7  .  25  5  23. C7^ 

7. 3^7  22  . ^^99 

7.<i3  1  2  2  .  766 

7. '.82  23.963 


C.<.13  -0.d8<. 

C.^89  -0.715 

C.566  -0.569 

C.6^3  -0.^^12 

C.72C  -0.329 

C.797  -0.227 

0.67^  -C.135 

C.951  -0.051 

l.OCO  0.000 


3.23'. 

-c 

.CC9 

2.655 

0 

.237 

2.257 

c 

.067 

l-6'.3 

c 

.899 

1.22^^ 

1 

.176 

C.669 

I 

.277 

C.A6<i 

I 

.799 

C.  197 

1 

.e<i3 

c.ooo 

2 

.ceo 

0.  no 

1  .601 

0.966 

1 

.853 

1  .206 

2 

.066 

2 

.231 

1.637 

2 

.332 

i.ec3 

2 

.36C 

1  .922 

2 

.30^. 

1  .986 

2 

.152 

2.000 

2 

.000 

LAW   TYPE    1   :  LN(Y-») 

USING      17  POINTS   (   PCP  = 

6<i.0C  % 

OF 

H. LAYER 

SIANCARO   ERRCR  OF  tSTIfATE 

SE  ^ 

C 

.  772E-C I 

2N0. -ORDER  REGR.CCEFF. 

E(2)  = 

0 

.8e3E-C6 

VIRTLAL   ORIGIN  CIS1ANCE 

EPS  = 

C.0016L 

VIRTUAL   ORIGIN  CISTANCE 

FF-»  = 

^•3.985 

INTERCEPT 

AP  = 

-0.  1^5 

KARfAN  COEFFICIENT 

VK  = 

n.3  16 

WAKE  STpENGTF 

PI  = 

0.C66 

ECLNCARY   LAYER  THICKNESS 

C*  = 

I  /06.635 

REFERENCE   FLCk  VELCCITY 

VM4  = 

2  J. 963 

(    IN  MEIERS  ) 
(    IN   Y-f  COCKO.) 
(    IN  U4  COCRO.) 


IN  Y-»  COCRO.) 
IN   U-»  COCKO.) 


LAV« 

TYPE    1    :   VALbES  AFTER 

ORIGIN 

CCKRECT ICN: 

I 

Y4 

LN(  Y-»  ) 

L-» 

Y-»/C-» 

LN(Y/U) 

UAKE 

COLES 

FINLbY 

1 

101. 6C5 

<..62  1 

I'l 

.363 

C.C57 

-2.667 

9.60C 

-0.5'.3 

0.0  16 

0.276 

2 

128.892 

'..859 

1  5 

.2'.5 

C  .072 

-2.629 

8.7  18 

o.oec 

0.026 

C.351 

3 

156.091 

5.C5C 

15 

.65*. 

C.087 

-2. '.36 

8.110 

0.093 

0.037 

C.'i26 

183.206 

5.2  11 

16 

.<!  12 

C.  IC  2 

-2.277 

7.55  1 

C.3'1 1 

0.05  1 

C.5C1 

5 

210. 2^15 

5.3^6 

16 

.  E'.5 

cue 

-2  . 

7.118 

C.  330 

0.068 

0.  576 

6 

26^.1  16 

5.576 

17 

.501 

c.  I'.e 

-1.912 

k.tibZ 

0.CI3 

0.  106 

0.72'. 

7 

290.961 

5.673 

17 

.908 

C.  163 

-l.fll5 

6.055 

0.'.97 

0.128 

C.797 

6 

3^'..5C0 

5.8^2 

18 

.355 

C.  193 

-  I  .6'.6 

5.6C6 

0.076 

0.176 

0.9'i2 

9 

397.860 

5.9E6 

18 

.768 

C.223 

-  1  .5C2 

5.195 

-0.  130 

0.235 

1  .C85 

1  0 

<.51.l<.9 

6.112 

19 

.2  18 

C.253 

-l.37tj 

'i.7'.5 

0.125 

0.298 

1.225 

1 1 

50'i.357 

6.222 

19 

.^^51 

0.262 

-  1 .265 

'1.512 

-CiS  1 

0.368 

1.362 

12 

557.553 

6.32A 

19 

.750 

0.312 

-1.165 

'..213 

-C.S'.O 

0.'.'.3 

1  .'.9'. 

1  3 

637.^120 

6. '.57 

2C 

.2'.6 

C.357 

-1.031 

3.718 

-0.  19'i 

0.565 

1.665 

1^ 

7<.'».350 

6.6  12 

20 

.729 

0.'.17 

-0.876 

3.23'. 

-C.228 

0.7'.  1 

1.920 

15 

679.220 

6.779 

2  1 

.308 

C  .'.92 

-C.  /09 

2.655 

0.02  1 

0.975 

2.  177 

16 

1015.707 

6.923 

2  I 

.706 

C.569 

-0.565 

2.257 

-C.26 1 

1  .21'. 

2.383 

1  7 

1152.377 

7.C5C 

22 

.320 

C.6^5 

-0.'.39 

1  .6'.3 

0.77C 

l.'.AG 

2.523 

1  8 

1289. 0<i7 

7.162 

22 

.7^.0 

C  .72  1 

-0.326 

1.22'. 

1.063 

1  .ti,  1 

2.587 

19 

l'.25.7  17 

7.262 

23 

.C7A 

C.79ti 

-0.226 

0.889 

1.157 

1.605 

2.563 

20 

1562.367 

7.35'. 

23 

.^.99 

C.fl7<. 

-C.  13<. 

C.'.6'i 

1.81C 

1.923 

2.'.'.  1 

2  1 

1699.057 

7.<.3e 

23 

.  766 

C.95  1 

-C  .050 

C.  19  7 

1.616 

1.966 

2.2  IC 

22 

1786.635 

7.<.ee 

23 

.963 

l.CCO 

O.OCU 

c.oou 

2.0CO 

2.000 

2.00C 

LAW    TYPE    1    :  LN(Y-«) 

LSING      18   POINTS    (    PER   =  72.00   \  OF   E. LAYER  ) 

SIANCARC    ERRCR   OF   fSTIMATE  SE      =  C.917E-C1 

2ND. -ORDER   REGR.CCEFF.  P.  ( 2  )  =  0.2'.7e-06 

VIRTUAL   ORIGIN   DISTANCE  EPS   =  C.0C195   (    IN   MEIERS  ) 

VIRTUAL  ORIGIN  CISTANCE  fP-»    =  53.  36  1    (    IN   Y*  CCiORC.  ) 
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INTERCEPT 

KARM/lN  COEFFICIENT 
kAKE  STRENGTH 
eCUNOARY  LAYER  THICKNESS 
REFERENCE   FLCH  VELCCITY 

LAW   TYPE    1   :   VALUES  AFTER 


I 

Y* 

LN  (  Y^  ) 

1 

1  10.981 

^.7C9 

I'l 

2 

138.268 

^.929 

15 

3 

165. ^166 

5.  1C9 

15 

192.582 

5.26  1 

16 

5 

219.620 

5.392 

16 

6 

2  ?3.'»92 

5.6  11 

1  7 

7 

300.337 

5.7C5 

17 

8 

353.676 

5.869 

18 

9 

'IC7.256 

6. CCS 

18 

10 

<i60.  525 

6.132 

19 

11 

513.733 

6.2A2 

19 

12 

,566.928 

6.3AC 

19 

13 

6<t6.eC6 

6.<i72 

20 

753.725 

6.625 

2C 

15 

886.596 

6.79C 

2  I 

16 

1025.063 

6.933 

2  1 

I  7 

1161.753 

7.056 

22 

18 

1298. <(23 

7.  169 

22 

19 

1A35.093 

7.269 

23 

20 

157  1.763 

7.  36C 

23 

2  1 

17C8.'(32 

7. ^^3 

23 

22 

1796. CIO 

7.^93 

23 

AP 

-0.949  ( 

IN  U  + 

VK 

0.305 

PI 

0.047 

04 

1796.010  ( 

IN  Y-* 

VK4 

23.963  ( 

IN  U-» 

ORIGIN 

CORRECT  ION: 

U-i 

Y-I/C-* 

LN(Y/0) 

UM-LI  + 

.363 

C.G62 

-2.784 

9.600 

.2A5 

C.C77 

-2.564 

8.  7  Id 

.65^ 

C.C92 

-2.385 

8.110 

.'i  12 

0-107 

-2.233 

7.551 

.e<i5 

C.122 

-2.101 

7.118 

.501 

0.152 

-  1.882 

6.462 

.908 

C.  167 

-1.783 

6.055 

.355 

C.197 

-1.624 

5.6Ce 

.768 

C.227 

-1.484 

5.195 

.218 

C.256 

-1.361 

4.745 

.^5  1 

C.2U6 

-1.252 

4.512 

.750 

C  .3  16 

-1.153 

4.213 

.246 

0.360 

-1.021 

3.718 

.729 

G.42C 

-0.868 

3.234 

.308 

0.495 

-0. 704 

2.655 

.706 

0.571 

-C.56I 

2.257 

.320 

C.647 

-0.436 

1  .643 

.740 

C.723 

-0.324 

1.224 

.074 

0  .799 

-0.224 

0.889 

.499 

0.875 

-0.133 

0.464 

.  766 

C.951 

-0.050 

0.197 

.963 

1  .COO 

0.000 

C.OOO 

CCORO. ) 

COOKO. ) 
COCRO. ) 


ViAKE 

COLfcS 

f  INLEY 

-0.993 

0.019 

C  .400 

0.054 

0.029 

0.497 

0.176 

0.042 

0.593 

0.568 

0.056 

C.689 

c.se  1 

0.073 

0.783 

0.159 

0.112 

C  .967 

C.«C9 

0.135 

1  .C58 

0.2  12 

0.166 

1  .234 

-0.  106 

0.243 

1.406 

0.2C0 

0.307 

1.571 

-0.622 

0.377 

1  .73C 

-0.764 

0.453 

1.661 

-C.375 

0.575 

2.095. 

-C.497 

0.750 

2  .350* 

-0.246 

0.984 

2.615 

-0.713 

I  .220 

2  .609 

0.6  10 

1.445 

2.9  16 

0.96  7 

1  .645 

2.931 

1.0C4 

1  .ac7 

2.838 

1.83  1 

1.924 

2.627 

1.766 

1.966 

2.289 

2. CCD 

2.OC0 

2  .COC 

LAW    TYPE   1   :  LN(Y-») 


LSING      19   POINTS    (    PER  = 

80.00  X 

CF 

E. LAYER 

) 

STANCARO   ERRCR   OF  ESTIMATE 

SE  = 

0 

.970E-0  I 

2NC. -ORDER  REGR.CCEFF. 

E(2>  = 

-0 

.428E-06 

VIRTLAL   ORIGIN  DISTANCE 

EPS  = 

0.00218 

( 

IN 

METERS  ) 

VIRTLAL   ORIGIN  DISTANCE 

EP4  = 

59.480 

( 

IN 

Y-f 

CUORC. 

) 

INTERCEPT 

AP  =■ 

-1.451 

( 

IN 

CCORC. 

} 

KARHAN  COEFFICIENT 

VK  = 

0.298 

kAKE  STRENGTH 

PI 

0.036 

ECUNDARY   LAYER  THICKNESS 

0-»  - 

1802.  13C 

( 

IN 

Y-t 

COORD. 

) 

REFERENCE  FLCW  VELCCITY 

= 

23.963 

( 

IN 

U  + 

CGCRD. 

) 

LAW    TYPE    1    :    VALUES   AFTER   ORIGIN  CORRECTION: 


I 

Y4 

LN(Y4) 

U4 

Y  4/04 

LN(Y/0) 

LM-U4 

WAKE 

COLtS 

F  INLEY 

1 

1 17. ICO 

4.763 

14.363 

0.065 

-2.734 

9  .600 

-1.45J 

0.02  1 

0.522 

2 

144.367 

4.972 

15.245 

c  .oac 

-2  .524 

6.718 

O.U  1  2 

0.032 

C.64C 

3 

1 71.566 

5.145 

15.854 

0.095 

-2.352 

8.110 

0.248 

0.044 

0.756 

4 

196.701 

5.292 

16.4  12 

O.llC 

-2  .205 

7.55  1 

0.767 

0.059 

0.87  1 

5 

225.739 

5.4  19 

16.645 

C.125 

-2.077 

7.118 

0.828 

0.U76 

C.9e3 

6 

279.611 

5.62  2 

17.501 

C.155 

-1.863 

6.462 

0.3  14 

0.116 

1  .202 

7 

306.456 

5.725 

17.908 

0.17C 

-1.772 

6.055 

1.  126 

0.139 

1  .309 

8 

359.995 

5.866 

18.355 

C.200 

-1.611 

5.6Ce 

0.36  1 

0.191 

1.516 

9 

4  13-375 

6.C24 

18.766 

C.229 

-1.4/2 

5-195 

-0.062 

0.249 

1.714 

197 


I 


10 

6 

.  Mt 

19 

.2  18 

C.259 

-1 

.351 

4.745 

0.295 

0.3  13 

1  .903 

1  L 

519.852 

6 

.25<i 

19 

.^151 

0.288 

-  I 

.2^13 

4.512 

-0.765 

0.383 

2.083 

12 

573.0^8 

6 

.35  1 

19 

.750 

0.318 

-1 

.146 

4.213 

-0.997 

0.459 

2.253 

13 

652.925 

e 

1 

2C 

.2'i6 

0.362 

-1 

.015 

3.7  18 

-0.528 

0.58  1 

2.486 

759.8'i5 

6 

.633 

2C 

.729 

0.422 

-0 

.86<i 

3.234 

-0.736 

0.756 

2  .763 

15 

89^.715 

6 

.797 

2  1 

.3ce 

C.<i96 

-0 

.700 

2.655 

-0.49  1 

0  .989 

3  .C36 

16 

103  1.202 

6 

.926 

2  1 

.  706 

C.572 

-0 

.558 

2.257 

-1.135 

1  .225 

3.219 

1  7 

1  167.872 

7 

.Ct3 

22 

.320 

c.6<.e 

-0 

.434 

1.643 

0.469 

1.449 

3.298 

18 

13C<r.5'i2 

7 

.nii 

22 

.7^0 

C.72<i 

-0 

.323 

1.224 

C.664 

1.647 

3.263 

19 

1^^1.212 

7 

.272 

23 

.C7'i 

C  .800 

-0 

.223 

0.889 

0.862 

1.8C9 

3.  102 

20 

1577.882 

7 

.36^ 

23 

.^99 

0.876 

-0 

.133 

0.464 

1.855 

1  .925 

2.607 

2  I 

171*^.551 

7 

7 

23 

.766 

C.95  I 

-0 

.050 

0.197 

1.757 

1.986 

2.365 

22 

18C2.  130 

7 

.^197 

23 

.963 

l.CCQ 

0 

.000 

C.QOO 

2.000 

2.0CC 

2. COO 

L/>U    TYPE    1    :  LN(Y-») 


LSING     20   POINTS    (    PER  = 

88.00  S 

CF 

E. LAYER 

) 

ST/lNC/lRO   ERRCR  OF  ESTIMATE 

SE  = 

C 

.  108E-»00 

2NC. -ORDER  REGK.CCEFF. 

B(2)  = 

-0 

.469E-C6 

VIRTUAL, ORIGIN  DISTANCE 

EPS  = 

C.CC249 

( 

IN 

METERS  ) 

VIRTUAL   ORIGIN  DISTANCE 

EP4  = 

68.127 

( 

IN 

Y  + 

COCRO. 

) 

INTERCEPT 

AP  = 

-2.  134 

( 

IN 

U4 

COCRD. 

) 

KARfAN  CCEFFICIENT 

VK  = 

0.289 

WAKE  STRENGTH 

PI  = 

0.C24 

ECUNCARY   LAYER  THICKNESS 

04  = 

1810.776 

( 

IN 

Y4 

COORC. 

) 

REFERENCE   FLCh  VELOCITY 

VK-»  = 

23.963 

I 

IN 

COCRO. 

) 

LAW    TYPE    I    :    VALUES   AFTER   ORIGIN  CCRRECTICN: 

Y-»/C-»  LMV/O) 

C.069  -2.667 

0.085  -2.471 

C.IOC  -2. 307 

C.115  -2.167 

0.129  -2.045 

0.159  -1.838 

0.174  -1.749 

0.204  -1.592 

0.233  -1.456 

0.262  -1.330 

0.292  -1.231 

0.321  -1.136 

0.365  -1.007 

0.424  -0.857 

0.499  -0.695 

0.574  -0.555 

C.650  -0.431 

C.725  -0.321 

0.801  -0.222 

0.  876  -0.132 
C.952  -0.050 

1.  CCO  o.oou 


I 

Y-» 

LN(Y4 ) 

L-» 

1 

125.747 

4.834 

14 

.  363 

2 

153.034 

5. 02  1 

15 

.245 

3 

180.232 

5.  194 

15 

.854 

4 

2C7.348 

*:.324 

16 

.4  12 

5 

234.386 

5.457 

16 

.845 

6 

288.258 

5.6t4 

1  7 

.  501 

7 

315. 1C3 

5.752 

I  7 

.908 

8 

368.642 

5.9  IC 

16 

.355 

9 

422.022 

6. 045 

18 

.768 

10 

475.291 

6-164 

19 

.218 

1  1 

528.499 

6.27C 

19 

.451 

1  2 

581.694 

6.366 

19 

.750 

1  3 

661.572 

6.495 

2C 

.  246 

14 

768.491 

6.644 

2C 

.729 

15 

903.362 

6.8C6 

2  I 

.308 

16 

1039.849 

6.947 

2  1 

.706 

17 

1  176.519 

7. 070 

22 

.320 

1  e 

1313.189 

7.  lec 

22 

.740 

19 

1449.859 

7.279 

23 

.074 

20 

1586.528 

7.3t9 

23 

.499 

2  1 

1723.198 

7.452 

23 

.766 

22 

1810.776 

7.5C2 

23 

.963 

Lf'-U4 
9.600 
8.718 
8.110 
7.551 
7.118 
6.462 
6.055 
5.608 
5.195 
4.745 
4.5  12 
4.213 
3.7  18 
3.234 
2.655 
2.257 
1.643 
1.224 
0.889 
0.464 
0.197 
C.OOO 


-1 


HAKE  CCLES  FINLEY 

2.546  0.024  0.799 

0.116  0.035  C.S64 

0.395  0.048  1.126 

1.276  0.064  1.283 

1.394  0.082  1.437 

0.665  0.122  1.734 

1.871  0.146  1.877 

0.733  0.198  2.151 

0.077  0.256  2.410 

0.551  0.321  2.652 

1.047  0.392  2.679 

438  0.467  3.C9C 

0.832  0.589  3.374 

1.239  0.765  3.692 

1.0C4  0.996  3.982 

2.060  1  .2  3  1  4  .  140 

0.173  1.453  4.153 

0.65C  1  . 650  4.009 

0.555  l.dlO  3.699 

1.918  1.925  3.211 

1.694  1.968  2.536 

2.0CC  2.000  2. COO 


LAW    TYPE    1    :  LN(Y-») 

USING     21   POINTS    (   PER   =        95.00   %   CF    E. LAYER  ) 


198 


I 


STAKCARO  ERRCR 

OF  ESTIMATE 

SE 

0.  1 12E 

2hD.-URCER  REGR.CCEFF* 

8(2) 

0.302E 

-06 

VIRTUAL  ORIGIN 

0  IS  TANCE 

EPS 

C.00268 

( 

IN 

METERS  ) 

VIRTUAL  CRIGIN 

DISTANCE 

EP  + 

73. 

333 

( 

IN 

Y4 

COORD. ) 

INTERCEPT 

AP 

-2. 

530 

( 

IN 

u-» 

COOKC. ) 

KARMAN  CCEFFIC 

lENT 

VK 

0. 

285 

WAKE  STRENGTH 

P  I 

0. 

G18 

ECbNCARY  LAYER 

THICKNESS 

D-» 

iei5. 

S83 

( 

IN 

Y  + 

COORD. 

) 

REFERENCE  FLCVi 

VELCC  I  TY 

VH-f 

23. 

963 

( 

IN 

U  + 

COCRD. 

) 

LAV*    TYPE    1    :    VALUES   AFTER   CRIGIN  CORRECTION: 

Y-»/C-»  LN(Y/U}  UM-U+  WAKE 

0.C72  -2.630  9.600  -3.698 

0.C8I  -Z.'iAO  8.718  -C.273 

C.IC2  -2.282  8.110  C.532 

C.117  -Z.ltfb  7.55  1  1.775 

0.132  -2  .025  J. 118  1.975 

0.  162  -1.823  6.<i62  1.079 

C.  1  76  -  1  .  735  6.055  2. 6^16 

C.2C6  -1.581  5-606  1.136 

0  .235  -l.^<i7  5.  195  0.2^7 

0.265  -1  .330  't.7A5  0.8'i2 

0-29^  -1.225  ^.512  -1.302 

0  .323  -1  .130  A. 213  -1.85<i 

C.367  -1.C02  3.718  -1.111 

0.<i26  -C.053  3.23'.  -1.723 

0.5CC  -0.693  2.655  -1.5C2 

0.575  -0.553  2.257  -2.98C 

C.651  -0.A30  1.6'i3  -C.lll 

0.726  -0.320  1.22<i  0.<.^6 

C.8C1  -0.222  0.889  0.253 

C.877  -0.132  0.^6^  1.9fiE 

C.952  -0.0^19  0.  197  1.632 

1.000        0.000  0.000  2.000 


I 

Y4 

LN(Y-«  ) 

U-» 

1 

13C.953 

'..875 

I'i  .363 

I 

158. 2^1 1 

5.C6'i 

15.245 

3 

185. 'i39 

5.223 

15.854 

212.55'! 

5.359 

16.4  12 

5 

239.593 

5. '.79 

16.845 

6 

293. 'id'. 

5.682 

17.50  1 

7 

32C.3C9 

5.769 

17.908 

8 

,  3  73  .8'(9 

5.92'. 

18.355 

9 

'.27.228 

t.C57 

16.768 

10 

'.8C.'i98 

6.175 

19.2  18 

1 1 

5  3  3.  705 

6.260 

19.451 

12 

586.901 

6.375 

19. 750 

13 

666.779 

6.5C2 

20.246 

14 

773.698 

6.651 

2C.  729 

15 

908.568 

6.812 

2  1.308 

16 

10'.5.056 

6.952 

2  1.706 

17 

I  181.726 

7.075 

22.320 

I  8 

13  18.395 

7.16'. 

22.  740 

19 

l'i55.065 

7.262 

23.C74 

20 

1591.735 

7.373 

23.499 

2  I 

1728  .'.05 

7.455 

23. 766 

22 

18  15.983 

7.5CA 

23.963 

COLES  FINLEY 

0.026  1.084 

0.037  1.297 

0.051  1.503 

0.067  1.705 

C.C85  1.9CC 

0.126  2.275 

0.150  2.454 

0.2C2  2.796 

0.261  2.116 

0.326  3.4  1  3' 

0.397  3.687 

0.473  3.939 

0.595  4.273 

0.770  4.634 

l.OOl  4.941 

1  .235  5  . €75 

1  .456  5  . 02  1 

1.652  4.767 

1.811  4.304 

1.926  3.622 

1  .989  2  . 7  10 

2.000  2  . COO 


LAU    TYPE    1    f   U+.  VS  .LN  ( Y-f )    FOR   NULL   VIRTUAL  CRIGIN 


USING        5   POINTS    (    PEP  = 
STANDARD   ERRCR   OF  ESTIMATE 
INTERCEPT 

KARMAN  COEFFICIENT 
hAKE  STRENGTH 
RCUNCARY   LAYER  THICKNESS 
REFERENCE   FLCk.  VELCCITY 


10.00   X  OF   E. LAYER  ) 

SE  =  0.324E-01 

AP  =  4.871    (    IN  U*  COCRD.) 

VK  =  0.428 

PI  =  0-354 

0-*  =  1742.650    (    IN   Y4  COORU.) 

VM-f  =  23-963    (    IN   U-»  COORD.) 


I 

Y  + 

LN(Y-»  ) 

U-f 

DU-» 

WAKE 

CCLES 

F  INLEY 

1 

57.620 

4.C54 

14.363 

9.600 

0.023 

0.CC5 

0.045 

2 

e4.9C7 

4.442 

15.245 

fl.7  18 

-C.006 

O.C  12 

0.07C 

3 

1  12.  1C6 

4.719 

15.854 

6.110 

-C.055 

0-020 

0.097 

4 

139.221 

4  .936 

16.4  12 

7.551 

C.0C8 

C.C31 

0.125 

5 

166.260 

5.114 

I6.ti45 

7.116 

C.030 

0.045 

0.156 

6 

220.131 

5.394 

17.50  1 

6.462 

C.C3C 

C.C78 

C.221 

7 

246.976 

5.509 

17.908 

6.055 

0.197 

0.097 

.  0.256 

8 

300.515 

5.705 

18-355 

5.6CU 

0-184 

0.  143 

0.32  1 

9 

353.895 

5.669 

16.768 

5.195 

C-221 

0.19/ 

0.4  IC 
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1  n 

4 0  7 • 1 64 

6  .COS 

19.216 

4.745 

U  .  J  U  T 

n  .  ^  f  n 

U  •  £  ^  o 

tt  •  T  T  J 

1 1 

<.60.372 

6.132 

19.45  1 

4.512 

C.304 

0.325 

o.5ec 

12 

5 13.566 

6.24  1 

19.750 

4-2  13 

C.356 

0.399 

C.670 

13 

5S  3.<i45 

6.366 

20.246 

3.7  18 

0.547 

0.520 

0.8  IC 

14 

700.365 

6.552 

2C.729 

3.234 

C.664 

0.697 

l.OCG 

15 

835.235 

6.728 

21.3C8 

2.655 

0.866 

0.935 

1.24C 

16 

<3  7  1  .  722 

6.E79 

21.706 

2.25  7 

C.92G 

1  .  1  EU 

1.4  71 

17 

1 IC8.392 

7.CII 

22.320 

1.643 

1.291 

1.414 

1.676 

18 

1245.062 

7.127 

22  .74C 

1.224 

1.470 

1  .624 

1.85  1 

19 

1381.732 

7.231 

23.074 

0.669 

1.560 

1  .796 

1.9  77 

20 

15 ie.402 

7.325 

23.499 

0.464 

1.828 

1.9  19 

2.045 

Zl 

1655.072 

7.4  12 

23.766 

0.197 

1.907 

1.9EU 

2.043 

11 

1742.650 

7.463 

23.963 

O.CCG 

2.00C 

2. ceo 

2.CCC 

PLCT  CF  FL.NC7ICNS  LPCN  RELATIVE  DEPTH 
FCR  16  CATA  PGIMS 


=  =  =  >>  I'A): 


KAR^AN  CCEFFICIENT 


2)   CPTENTION  OF   BEST  REGRESSION 


1-  CRDEP 

2-  CRCEP 

3-  CROER 

4-  CROER 

5-  CRCER 

6-  CROER 


REGRESS  ICN: 
REGRESS  ICN  : 
REGRESS  ICM 
REGRESS  ICN: 
REGRESS  IC^  : 
REGKESSICh: 


SC  = 
S0  = 
SD  = 

S0  = 
S0  = 


G.015  7121 
C. 0092664 
C.0G92944 
C.0C964  12 
C. 0095224 
C  .CC99443 


FCR        18    POI^rS^    BEST   REGRESSICN   FCONC    IS   CF   ORDER  2 
IMERCEPTICN  COEFFICIENT    :        A   =  0-27974  14 

REGRESSION   COEFFICIENTS      :        E   =  -C-9  128fl94E-Gl   -0 .2342690t-C 1 


==>>     2A):  INTERCEPT 

2)   CETENTION  OF   EES!  REGRESSION 


I 

-ORDER 

REGRESS  ION  : 

SD  = 

C. 9732492 

2 

-CRCER 

REGRESSION: 

S0  = 

C. 4656  136 

3 

-ORDER 

REGRESS  ION: 

SD  = 

0.4042796 

4 

-ORDER 

REGRESS  ICN: 

SC  = 

C. 4  194705 

5 

-ORDER 

REGRESS ICN: 

SC  = 

C.41C2C7I 

6 

-ORDER 

REGRESS  ICN: 

SD  = 

C.<t283659 

FOR        18   POlNTSt   BEST   REGRESSION   FCbNC    IS   OF   UROER  3 
INTERCEPTION  COEFFICIENT    :        A   =  -3.1477915 

REGKESSICN   COEFFICIEMS      :        E   =  -  C.  8  5  56009  E   0  1   -C  .  4  2  5  7  59  8fc-»C  I   -0  .  70  1 0  3  2  3  £  ■»  CO 


==>>      3A):  VIRTUAL  ORIGIN 
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2)   CeiEMICN  CF   (JEST  REGPESSICN 


1-  CROER  REGRESSICN: 

2-  CROER  REGKESSICN: 

3-  OROER  REGRESSION: 
^-CRDER  REGRESSICN: 

5-  CROER  regression: 

6-  CRCER  REGRESSICN: 


so= 

IC.S335618 

so= 

<..6'i  109Ab 

sc= 

3.  1311599 

sc= 

3. 237^55^1 

so= 

3.  1226657 

sc= 

3.  256  7  7  79 

FCR        18    POINTS,    EEST    REGRESSICN   FCUNC    IS   CF   ORDER  5 
IMERCEPTICN  COEFFICIENT    :       A   =  77.^979777 

REGRESSION  COEFFICIENTS      :        E   =     0  .  6 ';6  A  26  3  £-»02   -C.<iA  7a69B£  +  C2  -0  .  10  C5  I  5  J  E  +  C  3 

-C.5C30a29E-»02   -  C  .  8  C6  83  3  C  fc4  CI 


=  =  =  >>     i,A):  WAKE  STRENGTH 

2)   CE7EMICN   OF   BEST  REGRESSICN 


1-  ORQEP  REGRESSICN: 

2-  aRDER  REGRESSICN: 

3-  ORDER  REGRESSICN: 
'i-ORDER  REGRESSICN: 

5-  ORCER  REGRESSICN: 

6-  CRDER  REGRESSICN: 


S0=  C.C3271b2 

SC=  C.C251'.5l 

SC=  C. 0260124 

SC=  C. 0269943 

SC=  €.0269688 

SC=  C. 0281805 


FCR        18    POINTS,    BEST   REGRESSICN   FCUNC    IS   OF   ORCEK  2 
INTERCEPTION   COEFFICIENT    :        A   =  C.C038534 

REGRESSICN   COEFFICIENTS      :        fi    =   -  C  .  1  6  3  9  9  7  2  E  ■»  00   -C  .  3  9  6  95  5  4  t-CI 


FLCT  CF  FUNCTIONS  WITF  H  CCMPLIEC  FRC^  BEC 
FCR  22   DATA  PCINTS 


===>>      lb):      VfcLCC.  CISTRIELTICN 


2)   CEIENTICN  OF   EEST  REGRESSION 


1-  CRCER  REGRFSSICN: 

2-  CROER  REGRESSICN: 

3-  CRCEP  REGRESSICN: 

4-  OROER  REGRESSION: 

5-  CRDER  REGRESSICN: 

6-  CROER  REGRESSICN: 


SC=  C. 2623051 

SC=  C. 0767507 

SC=  0.0492415 

S0=  0.0487963 

S0=  C. 0474496 

SC=  0.0454786 


FCR        22    POINTS,    BEST   REGRESSICN   FCUNC    IS   CF   CRUER  6 
INTERCEPTION  COEFFICIENT    :        A    =  -838.8062177 

REGRESSICN  COEFFICIENTS      :        B   =     C  .  94  3  1  3  1  7  E +  0  3   -  C.  4  3  2  5  2  9  7  E  ♦  C  3      C.  1  04  9  5  5  8  L  •♦  C  J 

-C.  1  4  1  7955  E-»C2      C  .  1  C  1  1  J  2  8  b  ■»  CI  -0  .  2  9  7  4  1 2  C  t  -  C  I 


==^>>     Ze):      VEL.-CEFECT  OISTRIB. 
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2)   OEIENTION  OF    BEST  REGRESSION 


1-  CROER  REGKESSICN: 

2-  CRDCR  REGRESSICN: 

3-  CROER  REGKESSICN: 
A-ORUER  REGKESSICN: 

5-  OROER  REGRESSION: 

6-  CROER  REGKESSICN: 


SD=  C. 9162611 

SD=  C.<i6M5qi 

SD=  C.iTl'.SSO 

S0=  C.1575077 

S0=  G.C<;63253 

SC=  CCbSjeid 


FOR        22    PUINTSf    EEST    REGRESSION   FCUNC    IS   OF    CKOEK  6 
INTERCEPTICN  COEFFICIENT    :        A   =  U.361iiGti2 

HfcGRESSICN  COEFFICIENTS     :        E  =  -C  .65  II  e5<i  £4C2     C.28079ICfc  +  C3  -0  .  7  26*1  76'i  t -i  C3 

C.iC23e07fc-»O'»  -0.  733<il52fc*C3     C.  2090  79C 1 4  03 


===>>      3B):      LOG.   Lfi^   CF    THE  WALL 


2)   CETENTICN  OF   EES!  REGRESSION 


1-  CRCER   REGKESSICN:  SC-  C. 0323696 

2-  Cf?CfcR   REGKESSICN:  SC=  C.C22G793 

3-  CRDER   REGRESSION:  SC=  0.027^289 


FCR  5   POINTSt    EES!    REGRESSION   FCUNC    IS   CF   CtiO^R  2 

INTtRCEPTICN   COEFFICIENT    :        A   =  8.5669791 

REGRESSION  COEFFICIENTS      :        E   =      C.7H12B7E4C0     C  .  I  7  7  5  I  d  3 1+ CC 


-==>>     AB):         WAKE  FLNCTICNS 


2)    OETENTION  OF    EEST  REGRESSION 


1-  ORCER 

2-  CROER 

3-  CRDER 
'i-CROER 

5-  CROER 

6-  ORDER 


REGRESS  ION 
REGKESSICN 
REGRESSION: 
REGRESS  ION: 
REGRESS  ION ; 
REGKESSICN: 


S0  = 
SC  = 
SD  = 
SC  = 
S0  = 
SC  = 


C. 3175068 
0. 09290^12 
0.0596061 
C.C590667 
C.057<i37Q 
C,055C51^ 


FCR        22    POINTSt    EEST   REGRESSION   FOUNC    IS   CF   CRCER  6 
INTERCEPTICN  COEFFICIENT    :       A   =     -102  1.22  133  32 

REGRESSION  COtFFICIFNTS      :        B   =      C  .  I  1  3  8  7  7  7  E  ■»  C   -0.  i2  355  1  7t-»  C  3  0.  12  70*12  eE-»C3 

-C.  17  1635  lE-»02     C  .  I  22  ^  1  5  2 1   CI  -  C.  3  3  99  9  9  ^  t-C  1 


PRCGKAf  VcLKEAS 
VERSION    1  (1S56) 
HEAiUKEfENT   ANC  ANALYSES 
CF    VELOCITIES    IN    TUHUULENT  FLOWS 
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CHAPTER  5 


PROGRAM  "VEIMEAS"  USER  MARUAL 

5.1.  Program  Operation 

The  program  VELMEAS  Version  1  has  been  written  in  conversational  fashion,  but 
some  commands  to  direct  the  operating  system  must  be  issued  first.  They  are 
machine  dependent,  and  in  some  cases,  may  consist  of  a  large  number  of 
instructions.  Hence,  procedures  prepared  for  each  particular  machine  are 
preferable.  Those  developed  for  the  MODCOMP  CLASSIC  used  at  the  USDA 
National  Sedimentation  Laboratory  and  for  the  AMDAHL  470/V8  (or  for  the  IBM 
4341)  used  at  The  University  of  Mississippi  are  listed  in  Appendix  B. 

Whenever  examples  of  operation  are  given  in  this  chapter,  the  symbol  4-  means 
that  the  key  "Enter"  or  "Return"  has  to  be  pressed  once,  and  options  are 
given  between  parenthesis  (Parenthesis  should  not  be  typed) .  The  use  of  disk 
files  is  different  in  each  machine  and  should  follow  the  instructions  that 
follow  and  that  refer  to  table  5.1  succeeding. 

(1):  This   is    an   auxiliary   file    that  has    to   be    created   only   once  before 
running  any  job  by  the  following  procedure: 

JOB  i 

FMFCRE  AUXl  A  4- 

FMFCRE  AUX2  B  i 

FMFCRE  AUX3  C  4 
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(2)  :  The  content  of  this  file  is  lost  in  the  subsequent  job. 

(3)  :  This  file  is  rewound  once  the  statistical  analysis  is  finished  at  each 

probe  positioning. 

(4)  :  This  file  contains  the  Voltage  read  on  the  last  probe  positioning. 

(5)  :  Terminal  Input  by  Console. 

(6)  :  Terminal- Screen  Output. 

(7)  :  This   file  documents   the   entire  procedure   and  contains  useful  tables, 

parameters  and  regression  coefficients  obtained.  Commonly,  it  would  be 
sufficient  to  print  it  after  each  application.  However,  (2)  applies, 
hence  the  file  should  be  saved  into  another  file  when  judged  convenient. 

(8)  :  This  should  be  a  different  file  for  each  distribution  of  velocities. 

(9)  :  The    procedure    creates    or    optionally    uses    the    file    "sea####"  with 

characters  "####"  replaced  by  an  appropiate  designation  (  for  instance, 
sea8601  ) . 

(10)  :The  procedure  creates  or  optionally  uses   the  file   "lab  &1  A"  with  the 

filetype  "&1"  replaced  by  an  appropiate  designation  (  for  instance, 
seaSeOl  ). 

Table  5.1  :  Disk  Flies  used  by  the  program  In  tvo  different  computers 


<  MODCOMP  --  -->  <  AMDAHL  or  IBM  > 

File  Number  Name      Instructions  Number  fname  ftype  fmode  Instructions 

FNl  1  auxl        (1)(2)(3)             1  lab      fl         a  (2) (3) 

FN2  2  aux2       (1)(2)(3)(4)          2  lab      f2          a  (2)  (3)  (4) 

K03  3                             (5)                    6  (5) 

K05  5                             (6)                    6  (6) 

FN12  12  aux3        (1)(2)(7)           12  lab      fl2        a  (2) (7) 

FN14  14  sea####      (8)  (9)             14  lab      &1          a  (8) (10) 
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On  the  MODCOMP  computer,  the  procedure  SEAPRl  for  rxinning  the  program 
(Appendix  B.l)  is  executed  by  simply  typing: 

JOB  4- 

FMF  SEAPRl  P  i 
ASS  UJC  P  i 
VELMEAS  sea####  (E)  4- 

Option  E  should  be  included  when  the  file  used  is  an  existing  one.  It  should 
be  omitted  when  it  is  a  new  file  to  be  created  by  the  procedure. 

On  the  AMDAHL  computer,   using  Tektronix  plotters,    the  procedure   to  run  the 
program  (Appendix  B.2)  is  executed  by  tjrping: 
PLOT  lab  &1  4. 

If  the  Vesatec  plotter  is  to  be  used  (Appendix  B.3),  type: 
VER  lab  &1  4. 

It  is  understood  that  the  procedures  listed  in  Appendix  B  have  already  been 
created.  The  reader  working  with  computers  others  than  those  indicated  will 
find  the  preceding  instructions  useful  in  creating  his  or  her  own  procedures. 
It  should  also  be  noticed  that  different  versions  or  updatings  of  the 
operating  systems  managing  the  aforementioned  machines  may  also  require  minor 
changes  in  the  provided  procedures . 

The  use  of  a  different  analog- to-digital  converter  may  require  changes  in  the 
subroutine  ANLOGO.  When  implementing  the  program  in  another  machine,  Chapter 
4  will  assist  in  identifying  problems.  If  only  the  boundary  layer  analysis 
is  required,  subroutine  ANLOGO  may  be  replaced  by  a  dummy  routine.  This  was 
done  when  implementing  the  program  on  the  AMDAHL  computer. 
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5.2  The  Main  Menu 


Once  the  program  has  been  started,  the  user  will  see  a  message  on  the  screen 
identifying  the  program.    A  display  "Main  Menu"  will  follow  immediatelly : 

OPTIONS : 

STOP  AND  EXIT  :  0 

READ  RANDOM  SIGNALS  (ONLY)  :  1 

SAME  AS  1,  +  MEAN,  SD  &  FREQUENCIES  :  2 
SAME  AS  2,  +  SKEWNESS  &  KURTOSIS  :  3 

TRANSFORM  VOLTAGES  TO  VELOCITIES  :  4 

SAME  AS  4,  +  BOUNDARY  LAYER  ANALYSIS  :  5 
DUMMY  (RESERVED  FOR  FUTURE  DEVELOP.)  :  6 
REGRESSION  ANALYSIS  FACILITY  :  7 

PROTECT  PREVIOUS  RECORDS  IN  FILE  FN14:  8 
ERASE  PREVIOUS  RECORDS  IN  FILE  FN14     :  9 
ENTER  YOUR  OPTION  

This  should  be  answered  by  the  user  with  one  of  the  numbers  to  the  right  in 
the  Main  Menu.  For  instance  the  user  may  type: 
7  ^ 

which  would  instruct  the  program  to  bring  up  the  regression  facility  (See 
5.6).  After  an  option  has  been  fully  executed,  the  Main  Menu  appears  again 
on  the  terminal  screen  so  that  another  option  may  be  executed.  Option  0 
would  terminate  the  application.  Although  the  menu  is  self-descriptive 
(particularly  after  reading  Chapter  4)  and  the  program  keeps  giving 
instructions  whenever  necessary,  some  recommendations  are  to  be  taken  into 
account  as  follows . 
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5.3  Options  1.2  and  3 


If  the  user  only  wants  to  collect  data,  option  1  should  be  used  and  after 
samples  are  collected  and  program  returns  to  Main  Menu,  option  0  must  be 
issued;  otherwise  new  information  will  be  written  over  the  first  data, 
destroying  it. 

Option  2  does  the  same  as  option  1  but  additionally  produces  the  Mean,  the 
Standard  Deviation  and  the  PDF  diagram.  If  the  file  FN14  is  new,  option  9 
should  be  used  first  to  set  a  needed  counter  of  probing  positions  to  zero. 

Option  3  does  the  same  as  option  2  but  additionally  produces  the  Skewness  and 
Kurtosis.     The  previous  notice  about  FN14  holds  (See  5.7  also). 

Whenever  any  of  these  options  is  selected,  the  user  will  be  asked  on  the 
screen  to: 

ENTER  "Y"  POSITION  

The  user  should  then  type  a  number  and  then  press  the  "enter"  or  equivalent 
key.  In  boundary  layer  measurements,  this  "Y"  position  registers  the 
distance  of  the  probe  with  respect  to  the  wall  or  bed  for  the  purpose  of 
computing  distributions,  and  it  is  assximed  to  be  given  in  mm.  (milimeters) . 
In  other  applications  that  do  not  require  positioning,  a  dummy  number  should 
be  entered  anyway,  to  satisfy  program  requirements. 

Next,  the  screen  will  read: 

IF  YOU  WISH  OLD  HEADING,  ENTER  0 

 NEW  HEADING,  ENTER  1  : 
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Since  a  normal  application  would  require  successive  positionings  of  the 
probe,  data  collecting  and  analysis,  the  user  may  use  always  the  same  heading 
(an  80-character  message,  including  spaces)  by  entering  1  the  first  time  and 
0  the  following  times.  Optionally,  by  entering  1  each  time,  the  user  may 
write  a  different  message.   (After  typing  0  or  1,  press  "enter") 

If  the  user's  answer  is  1,  the  next  screen  question  will  be: 
ENTER  DATA  HEADING  (UP  TO  80  CHARACTERS)  : 

Normally  operator  name,  date,  and  some  identification  of  the  test  would  be 
included  here.   (After  typing  the  heading,  press  "enter") 

Finally  the  user  will  be  required  to: 

ENTER  THE  NO.  OF  SAMPLES  (  IN  THOUSANDS  )  : 

Here  the  user  should  take  into  account  that  the  data  acquisition  system  (This 
is  actually  machine- dependent  and  may  vary  from  system  to  system)   takes  one 
sample  each  hundredth  of  a  second  with  a  tolerance  of  0.005  volts.     Thus  if 
the  operator  t3rpes : 
30  ; 

the  program  will  take  30,000  samples  during  a  period  of  5  minutes.     The  user 
will  see  a  message  on  the  screen  that  reads : 
WAIT  ...(ENTER  "E"  TO  STOP  COLLECTING  DATA) 

which  will  stand  until  the  period  indicated  is  finished,  or  the  user  types  E 
(return  is  not  needed) .  The  option  E  to  interrupt  the  reading  of  samples  is 
very  useful  when  testing  the  behavior  of  the  system  or  simply  to  stop 
collecting  information  before  the  end  of  the  given  period  for  any  reason, 
without  interrupting  the  program,  and  then  resuming  work. 
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Except  when  the  operator  wants  to  issue  option  E,  he  should  do-nothing  during 
the  sampling  period  but  wait  until  all  samples  are  read.  Then  the  operator 
will  see  on  the  screen  the  following  message  (The  elapsed  time  will  be  also 
be  printed  on  FN12) : 

INITIAL  TIME  II II II  It  If  II II  It  II II  tilt  II  tl  .im###;  FINAL  TIME  It  It  11 11 II II II II  It  II  till  it  it  .immm 
ELAPSED  TIME  II II II II  It  II  It  II 11 II  It  II II 11  .#####  SECONDS 
NO.   OF  SAMPLES  =  II II II II  It  It  It 
WA  I  T   

with  "###..."  replaced  for  the  appropiate  numbers  (This  convention  is  used 
hereafter) .  This  facility  will  properly  act  even  when  the  option  E  is  issued. 

At  this  time  the  sample  collecting  has  finished,  and  the  operator  is  free  to 
move  the  probe  to  next  position  (in  case  he  or  she  had  issued  options  2  or 
3)  .  It  is  convenient  to  do  so  immediately  for  this  will  give  time  for  the 
system  to  accomodate  itself  to  the  new  position  before  a  new  sampling  begins. 
The  operator  should  never  type  anything  on  the  terminal  until  instructed  by 
the  screen  to  do  so. 

Sometimes  the  elapsed  time  is  not  the  expected  one  (such  as  the  300  seconds 
in  the  example  given)  but  more.  This  is  due  to  the  fact  that  the  computer  is 
operating  in  time  sharing  mode,  resulting  in  a  little  larger  period  (usually 
less  than  half  a  second).  This  should  not  concern  the  investigator,  since 
the  subsequent  optional  statistical  and  deterministic  analysis  is  made  based 
on  the  total  number  of  samples  and  not  on  time. 

If  option  1  was  issued,  the  Main  Menu  will  immediatelly  appear  on  screen. 
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If  options  2  or  3  are  in  execution  the  screen- indicated  "wait"  state  will 
stand,  and  the  user  should  still  do  nothing  but  wait  until  the  subsequent 
automatic  statistical  analysis  prompts  him  to  act. 

When  the   statistical  analysis   is   completed,    the   following  message  will  be 
read  on  screen  (  It  is  also  printed  on  FN12  except  for  the  WAIT  message  ) : 
"Y"  PROBE  POSITION:  ######,### 

HEADING  (  UP  TO  80  CHARACTERS  ENTERED  PREVIOUSLY  BY  THE  USER  ) 
STATISTICAL  ANALYSIS 

NUMBER  OF  SAMPLES  :  titltttttttttt 

SECONDS  FOR  DELAY  :  #####.## 

MINIMUM  VOLTAGE  FOUND  =    ######.###  VOLTS 

MAXIMUM  VOLTAGE  FOUND  =    ////////////.###  VOLTS 

DATA  IS  IN  MULTIPLES  OF  ######.###  VOLTS 

WA  I  T   

The  user  will  wait  until   the  following  information  appears   on  screen  (  See 

also  section  4.9  for  an  example  ): 

#########. -SAMPLES  MEAN:        XM=  ######.### 

SAMPLE  STANDARD  DEVIATION:     SM=  ######.### 

,  and  the  user  will  be  prompted: 

»»  >        (  TO  CONTINUE,  ENTER  0  ) 

The  user  should  type  0  and  press  "return"  to  continue.  Then  the  PDF  will  be 
seen  on  screen  (When  running  the  program  in  the  MODCOMP  computer,  the  user 
may  pause  at  any  moment  by  pressing  the  A  key  while  holding  the  "control" 
key,  and  then  continue  by  pressing  "return").  The  PDF  will  also  be  written 
on  FN12  (See  section  4.9  for  an  example).     At  the  end,  the  user  will  be  asked 
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again: 

»»  >        (  TO  CONTINUE,  ENTER  0  ) 

The  user  should  type  0  and  press  "return"  to  continue. 

If  option  3  is  in  effect,  the  following  title  will  be  seen: 
VALUES  FOUND  THROUGH  THE  CURVE  OF  FREQUENCIES 

Under  this  title,  the  Mean,  Standard  Deviation,  Median,  Mode,  Skewness,  and 
Kurtosis,  and  then  then  the  Moments  about  zero  and  about  the  mean,  as  well  as 
Sheppard's  corrections  and  Beta  and  Gamma  coefficients  will  all  be  listed. 
The  same  will  be  printed  on  FN12. 

Option  2  is  essential  to  the  subsequent  boundary  layer  analysis  (option  5) , 
since  the  obtained  Mean  is  (after  transformation,  options  4  or  5)  the  mean 
velocity  at  the  given  position.  The  standard  deviation  and  the  PDF  diagram 
(sent  both  to  the  screen  and  FN12)  will  give  a  hint  about  the  readiness  of 
the  system  for  the  measurements  (see  Chapter  4)  and  about  the  turbulence  in 
the  flow.     Option  3  only  adds  a  Skewness  and  Kurtosis  estimation. 

At  this  stage  of  execution,  both  options  2  and  3  will  add  two  lines  to  FN14. 
The  first  line  contains  the  given  heading.  The  second  contains  the  value  of 
Y  ("position"),  the  number  of  samples,  the  mean  (as  obtained  in  volts),  the 
standard  deviation,  the  skewness  and  the  kurtosis  (if  the  latter  two  values 
are  not  obtained,  the  value  99999.999  will  appear  instead).  In  addition,  a 
number  (counter)  in  the  first  row  of  file  FN14  will  be  incremented  by  1. 
This  number  indicates  the  number  of  positions  probed,  data  also  essential  to 
the  procedure  of  option  5 .  The  user  should  insure  that  data  from  a  previous 
application  still  stored  in  FN14  has  been  eliminated  when  so  desired,  because 
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the  new  information  will  follow  at  the  end  of  the  file,  and  the  coxinter  will 
be  incremented  accordingly,  resulting  in  a  merging  of  the  old  and  the  new 
measurements,  unless  appropiate  steps  are  taken  to  prevent  it.  A  positive 
verification  of  FN14  status  may  be  found  by  issuing  the  option  4,  sub-option 
3,  as  explained  in  next  section.  Options  8  and  9,  described  in  section  5.7 
also  contribute  for  the  management  of  FN14. 

Finally,  again  the  user  will  read: 

»»  >        (  TO  CONTINUE,  ENTER  0  ) 

The  user  will  type  0  and  press  "return"  to  obtain  the  Main  Menu  again. 
Usually,  having  positioned  the  probe  in  a  new  position,  option  3  will  be 
selected  again  until  all  positions  have  been  covered.  Then  option  0  will  be 
selected  to  exit  the  program.  Eventually,  option  5  may  be  used  to  produce  a 
boundary  layer  analysis,  but  this  requires  an  attached  plotter. 

5.4  Option  4 

Voltages  read  by  the  probe  need  in  general  be  transformed  to  a  more  sign- 
ificant value  through  some  transformation  formula.  Although  the  program  may 
be  used  the  same  way  or  easily  expanded  to  accomodate  other  variables  and 
formulas ,  it  will  here  be  assumed  that  a  transformation  to  flow  velocity  is 
to  be  accomplished  through  the  law: 

u=A*V+B*  sqrt(V)  +  C 
where  V  is  the  voltage,   and  A,   B,   and  C  are  coefficients  of  transformation. 
The  values  of  A,  B,  and  C  are  initially  set  to  accomodate  the  instrumentation 
used   in   flume   experiments.       In   general,    these  values   are    to   be  obtained 
through  analysis  and  calibration,  and  can  be  specified  by  the  user  as  next 
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described. 


Whenever  option  4  (or  option  5)   is  selected,   the  user  will  see  on  the  screen 


the  following  Sub- Menu: 


OPTIONS : 

GO  BACK  TO  MAIN  MENU  :  0 

USE  LAST  TRANSFORMATION  LAW  :  1 

INTRODUCE  TRANSFORMATION  LAW  :  2  (AND  USE  IT) 

NO  TRANSFORM  (JUST  PRINT  VOLTAGES):  3 

ENTER  YOUR  OPTION  : 


(The  user  will  type  his  option  and  press  "enter") 


Sub- option  0  will  cause  return  to  the  Main  Menu  with  no  other  consequence 
whatsoever. 

Sub-option  1  will  use  the  last  transformation  introduced  (  or  the 
aforementioned  initial  one) ,  transforming  the  values  in  FN14  and  printing  the 
resulting  table  on  screen  and  on  FN12.  Whenever  this  option  is  issued  a 
message  will  be  printed  on  screen  (  and  on  FN12  )  that  reads: 


A  TRANSFORMATION  FUNCTION  HAS  BEEN  DEFINED  BY: 

VELOCITY  =  A  *  VOLTS  +  B  *  SQRT (VOLTS)  +  C 
,  WITH:     A  =  ######.#####  ,     B  =    ######.#####  ,  c  =  ######.#####  . 

The  table  will  follow  under  the  title: 
STATISTICAL  PARAMETERS  OBTAINED 


Sub-option  2  will  prompt  the  user  to  enter  the  values  of  A,  B,  C  with  the 
following  messages  on  screen: 
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INTRODUCE  COEFFICIENTS  A,B,C,  FOR  THE  EQUATION: 
VELOCITY  =  A  *  VOLTS  +  B  *  SQRT (VOLTS)  +  C 
FIRST  THE  COEFFICIENT  A:  : 

(  The  user  will  type  the  value  of  A  and  press  "enter"  ) 
THEN  THE  COEFFICIENT  B:  : 

(  The  user  will  type  the  value  of  B  and  press  "enter"  ) 
BY  LAST  THE  COEFFICIENT  C:  : 

(  The  user  will  type  the  value  of  C  and  press  "enter"  ) 

It  should  be  remembered  that  once  a  new  transformation  law  is  introduced,  it 
will  remain  in  effect  through  the  entire  application  unless  changed  again. 
A  new  application  will  start  with  the  original  initial  law.  Even  so,  the 
operator  has  a  new  chance  to  change  the  law  after  each  measuring  sequence . 

Finally,  sub-option  3  will  print  the  values  in  FN14  without  transformation 
whatsoever  on  screen  and  on  FN12 . 

This  option  is  intended  for  general  purpose  dvelopment  of  the  program.  When 
a  boundary  layer  analysis  is  to  be  done,  option  5  should  be  used  instead. 

5.5  Options  5  and  6 

Option  5  will  do  at  first  exactly  the  same  as  option  4  does.   Next  the  user 
will  be  asked  to  provide  information.   For  example,   for  the  flume  experiments 
conducted  at  the  USDA  National  Sedimentation  Laboratory,   this  information  is 
contained  in  the  Operator's  Form  (Appendix  C) .  The  screen  will  read: 
ENTER  WATER  TEMPERATURE  (CELSIUS)  : 
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The  user  should  enter  the  water  temperature  (in  degrees  Celsius)  at  the  time 
the  experiment  was  conducted.     For  instance: 
30.5  i 

Next  the  screen  will  read  (user's  answer  is  ommitted  in  next  4  questions): 
ENTER  DEPTH  (INCHES)  : 

The  user  should  enter  the  depth  (in  inches)  at  the  probe  vertical.  Next: 
ENTER  DISCHARGE  MANOMETER  READING  (IN.HG.)  : 

The  user  should  enter  the  Venturi's  mercury- manometer  reading  (in  inches)  or 

equivalent .     Next : 

ENTER  FREE- SURFACE  SLOPE  : 

The  user  should  enter  the  free  surface  slope.  Finally: 
ENTER  CHANNEL  WIDTH  (FEET)  : 

The  user  should  enter  the  channel  width  at  the  probe  position  (in  feet). 
For  the  conducted  experiments  this  value  was  always  1.972  feet;  for  other 
applications  this  would,  of  course,  be  some  other  value.  The  program  makes 
the  necessary  unit  conversions  to  SI  units. 

After  the  channel  width  is  entered,  the  screen  will  read: 
THUS 

TGC  =  ######.###  DEP  =  ######.### 

DH    =  ######.###  SLP  =  ##.####### 

BFL  =  II II II II II II  .mm 

IF  VALUES  ARE  CORRECT,     ENTER      0  , IF  VALUES  ARE  WRONG,     ENTER  1 

These  are  the  same  values  entered  by  the  user  (in  their  original  units),  who 
may  then  proceed  to  correct  them  (by  entering  1)  or  to  accept  them  (by 
entering  0).    When  the  values  are  correct,  a  similar  message  will  be  printed 
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in  FN12. 


Before  this  reading  task,  a  number  of  computations  have  already  been  made 
(See  section  4,7).  Their  are  printed  in  FN12  (See  section  4.10  before  the 
title  "SIDE-WALL  CORRECTION  PARAMETERS:").  Results  of  following  computations 
will  continue  to  be  written  on  FN12  without  indication  on  screen. 

After  the  user  has  entered: 
0  i 

the  screen  will  read: 

TO  PLOT  THE  VIRTUAL-ORIGIN  SEARCH: 

ENTER  1  (PEN  PLOTTER)  OR  2  (TEKTRONIX)  OR  3  (VERSATEC) 
OTHERWISE,  ENTER  0  : 

The  answer  will  depend  primarily  on  whether  a  plotting  of  the  virtual- origin 
search  is  required  or  not,  and  secondarily  on  the  computer  and  plotter  in  use 
(See  4.2  and  Appendix  B) .  If  the  answer  is  0,  the  origin  search  will  be 
conducted,  beginning  with  the  4  points  nearest  to  the  wall,  up  to  the  total 
number  of  points  measured.  This  search  will  not  be  plotted,  since  a  plot  has 
not  been  requested,  but  the  results  will  be  printed  on  FN12  anyway. 

Let  us  assume  the  program  is  being  run  in  the  AMDAHL  computer,   the  Versatec 
plotter  is  being  used,   and  the  user  wants  to  plot  the  search.     The  operator 
will  enter: 
3  i 

Next,  the  user  will  be  questioned  (valid  for  any  sub-option,  including  0): 
ENTER  CASE  NUMBER  (UP  TO  FOUR  FIGURES): 

The  user  will  enter  an  up- to-4- characters  alf a- numeric  identifier,  for 
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instance   (It  will  be  written  in  all   subsequent  plots   following  the  words 

"CASE  NUMBER"): 

A61 

The  following  message  will  be  seen  on  screen  (any  sub-option)  : 
SURFACE  VALUES  HAS  BEEN  ADDED  TO  Y+,U+  LAW  AS  THE  POINT  NUMBER  ## 
BOUNDARY  LAYER  THICKNESS    D+    =    #####.###  (IN  Y+  COORD.) 
REFERENCE  FLOW  VELOCITY      UM+  =    #####.###  (IN  U+  COORD.) 

Next  the  Versatec  procedure  will  write  a  message  on  the  screen  while  creating 
a  file  in  the  user  minidisk  containing  the  plot. 

If  instead  of  sub-option  3  ,  the  sub-option  2  is  under  use  (that  is,  the 
terminal  is  a  graphic  Tektronix  one) ,  the  screen  will  automatically  be 
cleared  and  the  user  should  type  C  I  and  then  again  (when  prompted  on  screen) 
C  4-.  The  plot  will  appear  on  screen.  When  finished,  the  operator  may  submit 
the  plot  to  the  Tektronix  hardcopier  (when  attached)  by  pressing  the  "copy" 
key.  When  finished,  a  dot  appears  on  top-center  screen,  and  the  user  will 
sequentially  type  E  i  (this  will  clear  the  screen)  and  C  4-. 

If  instead  of  3  or  2,  sub-option  1  is  under  use  (that  is,  a  pen-plotter  is 
attached  to  any  terminal  connected  to  the  computer)  ,  the  user  should  first 
set  up  the  plotter  with  paper  measuring  11" (horizontal)x  8 . 5" (vertical) .  If 
it  is  a  Tektronix  pen-plotter  the  operator  should  type  C  4-  (These  and  the 
next  commands  are  not  necessary  for  the  Hewlett-Packard  plotter) .  The  plot 
will  be  executed.  Again  the  user  will  type  CI.  If  a  pen  plotter  is  used,  a 
different  pen  will  be  used  for  each  search. 

Up  to  seven  searchs  will  be  executed  in  a  single  plot.     At  its  end,  the  user 
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will  see  the  message  (if  NX,   the  number  of  points  used  in  the  last  virtual- 
origin  search  is  less  than  MAX.NI  the  total  number  of  points): 
IF  YOU  LIKE  TO  RESTART    THE  ORIGIN  SEARCH,  ENTER  2 
IF  YOU  LIKE  TO  CONTINUE  THE  ORIGIN  SEARCH,  ENTER  1 
(LAST  NI  =  ##,     MAX.NI  =  ##  ) 
OTHERWISE,  ENTER  0 

If  the  user  types  0  4-,  the  origin  search  will  finish,  and  the  program  will 
continue  with  the  next  task  (plotting  obtained  functions  upon  y/S).  If  the 
user  types  1  4- ,  seven  additional  searchs  (supposing  the  last  NI  is  still 
smaller  than  MAX.NI)  will  be  executed  and  the  last  message  will  appear  again. 
If  the  user  chooses  to  continue  issuing  sub-option  1,  the  program  will  at 
some  point  search  for  NI  =  MAX.NI,  and  the  the  screen  will  read: 
IF  YOU  LIKE  TO  RESTART  THE  ORIGIN  SEARCH,  ENTER  2 
OTHERWISE,  ENTER  0 

If  the  user  types  2  i,  the  search  will  again  begin  with  4  points.  After  the 
user  finally  issues  the  sub-option  0,  the  screen  will  read: 


TO  PLOT  FUNCTIONS  UPON  RELATIVE  DEPTH, 

ENTER  1  (PEN  PLOTTER)  OR  2  (TEKTRONIX)  OR  3  (VERSATEC) 
OTHERWISE,  ENTER  0  : 

Even  if  no  plot  was  made  of  the  origin  search,  this  new  plotting  may  be 
executed.  It  will  use  all  the  searchs  made  in  the  previous  step.  Hence  the 
user  may  specify  this  plot  to  cover  7  or  14,  etc.  up  to  the  total  number  of 
points . 
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This  plot  uses  an  area  of  15" (horizontal)x  11" (vertical)  since  it  actually 
draws  4  graphs.  If  a  pen-plotter  is  used  the  paper  should  have  these 
dimensions.  If  a  graphic  Tektronix  terminal  is  used,  after  the  first  C  i 
issued,  a  window  command  should  be  used  by  sequentially  tjrping:  W  i  0,0  4- 
15  11  -l-    C  i  and  then  continuing  as  in  previous  smaller  plottings. 

In  all  other  respects,  the  procedure  is  similar  to  previous  ones.  When  the 
plot  is  finished,  the  same  message  will  appear  on  the  screen.  This  is  useful 
for  repeating  the  same  graph,  and  even  more  so  when  using  a  graphic  terminal 
and  pen-plotter  simultaneously  and  a  preview  is  wanted. 

When  the  user  finally  issues  the  sub-option  0,  the  screen  will  read: 
LAWS  OF  THE  WALL  AND  THE  WAKE  AND  VELOCITY-DEFECT  LAW: 

ENTER  1  (PEN  PLOTTER)  OR  2  (TEKTRONIX)  OR  3  (VERSATEC) 
OTHERWISE,  ENTER  0  : 

All  the  instructions  given  for  the  previous  plotting  are  valid  for  the 
present  one.  Issuing  sub-option  0  will  make  the  Main  Menu  appears  again  on 
the  screen  (See  section  5.2).  If  then  the  option  0  is  issued,  the  applic- 
ation will  immediatly  finish,  except  when  the  Versatec  plotter  is  in  use. 
In  the  later  case,  a  message  will  still  be  read  on  the  screen,  beginning 
with:  "DO  YOU  WANT  PLOT  OR  STOP  ?",  et  cetera.  To  actually  submit  the 
plotting  to  the  off-line  Versatec  copier,  the  user  will  type  PLOT  4-  ,  and 
wait  until  the  process  finish. 

Option  6  is  a  dummy  option.  It  has  been  reserved  for  future  developments. 
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5.6  Option  7 


This  option  calls  the  Regression  analysis  facility,  which  is  independent  of 

the  rest  of  the  analysis  incorporated  to  the  program.  It  has  been  included 
as  a  useful  additional  tool.     When  this  option  is  selected,   the  screen  will 
read: 
OPTIONS : 

GO  BACK  TO  MAIN  MENU  :  0 

VISC=FUNC (TEMP. CELSIUS)  :  1 

F=FUNC(LN(R/F))  LAW  FOR  SMOOTH  WALLS  :  2 

Y=FUNC(X)  LAW  TO  TYPE  ON  TERMINAL  :  3 

Y=FUNC(LN(X))      LAW  TO  TYPE  ON  TERMINAL  :  4 

LN(Y)=FUNC(X)  LAW  TO  TYPE  ON  TERMINAL  :  5 

LN(Y)=FUNC(LN(X))      LAW  TO  TYPE  ON  TERMINAL  :  6 

ENTER  YOUR  OPTION  


Sub-options  1  and  2  may  be  used  only  if  none  of  the  main  options  3  to  5  have 
been  used.  These  two  options  obtain  regressions  of  two  functions  used  in  the 
analysis  of  the  boundary  layer,  i.e.  the  viscosity  as  a  function  of 
temperature,  and  the  f=function(R/f )  law  for  smooth  walls  (See  section  2.7). 
Other  sub-options  are  self-explained  in  the  given  Sub-Menu.  Whenever  the 
user  types,  for  instance, 
3  i 

the  screen  will  read: 

1)  REGRESSION  ANALYSIS  WITH  SCALES: 
1  FOR  X 
1  FOR  Y 

(  1=NATURAL  SCALE,   2  LOGARITHMIC  SCALE  ) 
FOR  UP  TO    ##  DATA  PAIRS  X,Y 
ENTER  NUMBER  OF  PAIRS  
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The  user  will  enter  the  number  of  pairs,  for  instance: 
35  i 

and  then,  successively  the  two  values  of  X  and  Y  after  each  prompt  to  (Values 
will  also  be  promted  on  FN12) : 
ENTER  A  DATA  PAIR  X.Y 

When  the  program  finds  that  the  given  number  of  pairs  has  been  entered,  it 
writes  on  screen: 

IF  YOU  LIKE  TO  CHANGE  SOME  DATA,  ENTER  1 
IF  NOT,  ENTER  0  : 

If  the  answer  is  1  i ,  the  screen  will  read: 
ENTER  "I",   "X(I)",   "Y(I)"  VALUES  : 

The  user  will  enter  the  required  values  ("I"  should  correspond  to  the  value 
to  be  corrected)  .     A  message  docxomenting  the  change  will  be  sent  to  FN12 . 

Whenever  the  user  answers  0  I  ,  a  best-polynomial  regression  will  be 
obtained,  defined  as  the  one  of  the  first  up  to  the  sixth  order  that 
registers  the  least  standard  error  of  estimate  (after  transformation  of 
coordinates  in  agreement  to  the  sub-option  selected) . 

Regression  coefficients  and  standard  error  of  estimate  will  be  documented  in 
FN12.      The   user   will   have    the    opportunity   to   obtain   interpolated  values 
(through  the  regression)  since  the  screen  will  next  read: 
IF  YOU  LIKE  TO  GET  A  REGRESSION  VALUE,  ENTER  1 
IF  NOT,  ENTER    0  : 

If  the  user  t3rpes  1  i  it  will  be  asked  to: 
ENTER  "X"  VALUE  : 
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When  this  is  done,  both  the  screen  and  FN12  will  read: 

FOR  X  =  mill  II II II  mm.  II  It  mi  II  ,     Y  =  mi  ii  ii  ii  ii  ii  im.mi  iiiiii . 


The  same  message  will  appear  over  and  over  until  the  user  types  0  4-  ,  in 
which  case  the  Sub-Menu  will  again  be  written  on  the  terminal  screen. 

5.7  Options  8  and  9 

Collecting  data  is  a  tiresome  task  for  any  operator,  and  a  mishandling  may 
result  in  accidental  erasing  of  the  table  generated  in  FN14.  This  file 
contains  all  Means,  Standard  Deviations,  Skewnesses  and  Kurtoses  found  for 
each  probe  positioning.  This  usually  demands  several  hours  of  work, 
including  the  use  of  equipment  of  considerable  operative  cost.  The  selection 
of  option  8  will  protect  FN14  from  being  erased.  The  operator  should  type: 
8  i 

while  in  the  Main  Menu,  once  he  or  she  is  sure  that  collected  information 
will  be  useful.  This  will  disable  option  9,  which  will  remain  ineffective 
even  if  requested,  until  the  end  of  the  application.  Option  9  is  intended  to 
clear  files  at  the  beginning  of  measurements,  when  it  is  certain  that  all 
data  in  files  FN14  and  FN12  can  be  erased,  and  the  counter  of  positions  has 
to  be  set  to  zero.  If  the  application  consists  only  in  analysis  of  previous- 
ly collected  data,  option  9  should  not  be  used. 

While  testing  the  system  for  readiness  for  collecting  data,  the  operator  will 
usually  obtain  data  of  no  practical  interest.  Before  starting  the  actual 
data  acquisition  process,  the  user  should  clear  files  FN14  and  FN12.  This  is 
done  by  issuing  option  9  by  typing: 
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9  I 

The  user  should  be  certain,  before  using  this  command,  that  those  files  do 
not  contain  useful  information.  Option  4,  sub-option  3  may  be  used  to  this 
effect  (See  section  5.4). 

This  option  should  also  be  used  before  any  other  when  FN14  is  a  new  file 
containing  no  information.  This  will  create  a  positioning  counter,  which 
will  be  set  to  zero. 

It  is  a  highly  recommended  practice  to  create  a  "backup"  of  every  file  FN14 
immediately  after  an  application. 
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APPENDIX  A 


Program  VELMEAS  Source  Code 


r 
r 


C  use*   KATICNAL   SEDIMENTATION  LAdORATCRY  C 

C  AND      THE   UNIVERSITY   CF   MISSISSIPPI  C 

Q  PRCGRAf   VELMEAS   VERSION    I    (1986)  C 

C  CEVELCPEC   EY   SERGIC   E.   ADEFF  C 

c  c 

C  FCR  THE  CETENTICN  AND  ANALYSIS  OF  VELOCITY  PROFILES  C 
C  FROM  THE  fEASLREfENT  OF  VELOCITIES  AT  SINGLE  POINTS  C 
C  LAST  UPDATING:  APR-15-87  C. 
C  C 

IMPLICIT   RFAL-8  (A-HtC-Z) 

REAL*A    XX,YYtXR,YRf HF 
C:::::       NEXT  I       LINES  NEECEC  FOR   VS  FORTRAN  VERSION 


CHARACTER*^!  A 
COMMON  Kl5,KC3fIAP 

CIMENSION  VFR(5C)tFRC(50),A(20) »Y(50) tV(50)  .0S(   50),S(  50),£RR(5O) 
CtIFR(5C)tGR(5CJtE(  5C)fC(50)th(50t50)tSK(50)tUK(50)TK(5C),OR(50) 
e,VlE('i),REE(6),IST(?0),YST(20),tST(20),XX(52)tYY(52).XR(52),YR(52) 
(;«HF(50»20}fGA(lC)tWG(iO) 

CAT  A   OVCL  tSSfNCCAtCEf  CCND  I  tNCJtCI  A,0A,UB/5.C-3t99S99.q9S,C»0.CC 
C«.7S8DO»0.00«5Cf  2C«  3.  10Q«  •179<i6CQ  tO.DO/tSI  1  tSI2f  GRA/.30'!«8C0 
C»  .025^DCf  9.8162CC/»A/2C<='  •  /  t  M  D  ,  M  F  /  52  t  20  /  t  NP  V  ,  NP  F  /  A  t  6  /  ,Nt  /  1 0/ 

C,E/l.93D-5,l.67C-5,l.'tlD-5»1.21C-5,  1.C5C-5*  .930-5t  .  6  2  3C- 5  ,  .  7  36C- 5 
C,. 61  0-5f.A7eC-5.. 385  C-5t.319C-5t38*O.Ca/fIFR/32t<.C, 50. 60,70,80,90 
C,100,l2G,I5C,ieC,212,3  8-0/,NVS/12/,C/.3C6,.A06,.6C6,.aD6,l.C6 
£,1.5C6,2.06,3.C6,A.Ct,6.06,8.C6,lC.C6,lI.D6,l2.C6,l3.D6,U.C6 
C,l6.C6,3  3*CCC/,S/.03  17CO,.026eCC,.G272CC,.Q257L;(;,.U2A5CC,.C227DC 
C, -O2l'iOC,.OI<;SC0,.0ie9CC,.OI77CC,.G169D0, .016300, .01  52  CC.CIASCO 
£,.013600,  .0130C0, .C  122  5CC, 33*C.CC/,NCh/17/ ,KUSD,KPRC/0,C/ 
C,  VI A  ♦  VI  E/- 13.  2  30  73CC,-.  3^^30  62  30-1  ,  .  3  00  9006D- 3  ,- .  1  9707070  7  C7C- 5 
C,-5591092C-e/,REA/650.  7750  1  35CO/,RBE/- 2 -  6^0767802, '..^5  32630  1 
£♦-3.9939  300,2.00692  lC-  1  ,- 5  .  3  7  26  7  <.  C- 3  ,  5  .  96  790  3C- 5/ 


C:::::     KI5,KC2/5,2/   FCR   PCCCCMP   VERSION,   /6,6/   FCR   VS  FCRTKAN  VERSION 

KI5  =  6 

K03  =  6 
C—    MAIN  MENU 

IAP  =  0 

kRITE(KC3tlCl) 
taRITE(12» 101) 


1  WRIT6(KC3,  lC<i) 

2  URITE(12»I0A) 
WRITE(K03,10C) 
REA0(KI5,*)ICP 
IF(ICP.Le.O)GO   TC  9C 

GO   TC(5«5t5«5Qf  5C,2,Alt<i2f60,2)  tICP 
C —   MAIN   1,2,3  OPTIONS 
5  URITE(KC3tlIC) 
R£AD(K15,«)YPC 
CL1=I.E10 
CL2=-1.E10 
SKEW=SS 
QKUR=SS 
FME=SS 


A-1 


FMO=SS 
C—  GET  ANALOG  SIGNALS 

CALL   ANLOGO(A,CSAt'P»NNOf  IP<.0,  INLf  tM  INU  t  NSEC  »CL  I  .CL2  ) 
IF(CSAHP.LE.O. )GC   TO  1 
REWIND  2 

IKICP.EQ.DGC   TC  2C 
C—  MAIN  2,3  OPTIONS 

SEC  =  FLOAT(60*f INL)  +  FLCAT (NSEC  )-.0  I 
HRITE(K03f  IIUYPC 

WRITE(KC3.l02)A,CSAfP,S£C,CLl,CL2,OVOL 
WRITE(12f  IIDYPC 

URITE( 12, I02)A  f CSAHP,SEC,CL1»CL2,CV0L 

WRITE(KC3,103) 
C —  GET   MEAN,   STANCARC   DEVIATION   AND  FREQUENCIES 

CALL   STATI  1(KCI,A,QSAMP,NN0, IP^C, INUM,OVGL,PCL,VFR,FRO 
C,CLI,CL2,XrEC,SCEV,IFR) 

KUSO= I 
C~  MAIN   1,2,3  OPIICNS 
20     WRITE(KC3, 106) 

REA0(KI5,*)K 

ENDFILE  2 

ENOFILE  1 

IF,(  ICP.LE.  1  )GC    TC  AC 
C —   ^'AIN   2,3  OPTIONS 

C —    IF    MAIN   3   OPTION,    GET    SKEWNESS   ANC  KURTCSIS 

IF(ICP.GE.3)CALL   STATI2(NDI  ,  MCL  ,  V  FR  ,  F  R  C  ,  SKE  I.  ,  CKUR  ♦  XM  ED  ,  D  VCL 
C,FME,FMC) 
REWIND  l<i 
REAO( 1A,*)NPC 
NPN=NP04l 
REWIND  lA 
WRITEC  IA,107)NPN 
IF(NPC.EC.O)GC    TC  35 
DO   30    1=1, NPC 
30     REA0( lA , lOe ) 

35     WRI  TE(  lA,  10<;)A,YPC,CSAMP  ,XMEC,SCEV,SKEW,OKUR,FME,FMC 

ENDFILE  lA 
AO     REWIND  1 

REWIND  2 
A5  WRITE(KC3,106) 

REAC(KI5,*)K 

GO   TO  I 
C~  MAIN  A, 5  OPTIONS 
50     REWIND  14 

KUSO= I 

REA0(14,*)NPN 
IF(NPN.EC.O)GC   TC  55 
00   52   1=1, NPN 

52  REA0(M,112)Y(I ),CS(I),V(I),S(I),SK(I),CK(I) 

53  WRITE(K03,116) 

C —   SUB-MENU   FOR   THE   fAIN   A, 5  OPTION 
REA0(KI5, 105)104 

IF(IO4.LE.0.0R.IC4.GE.4)GO   TO  I 
GO   TC(66,65,72) , 104 
C —  SUB  2  OPTION 
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65  hRITE(KC3f 118) 
REA0(KI5t«)CA 
taRITE(KQ3«12C) 
REAC(KI3«9)Ce 
URITE(KC3f 121  ) 
REA0(KI5t«)CC 

C—   SUE   IfZ  OPTICNS 

66  OC  66  I=ltNPN 

V(  I)  =  CA?V(  I  )"»CECCSCRT(  V(  I)  )+CC 
6  8  S( I )=CA*S( I )4CE*CSQRT(S(I))+CC 
69     WRIT£( 12t 122)CA,CEtCC 

»iRITE(KC3f  l22)CA,CEtCC 
C —   sua   1*2,3  OPTIOKS 
72     WRITe(12, ll^)KPN 

DO  75   1=1, NFN 
75     hRI TE( 12, 113)Y( I) ,CS{I ),V( I),S( I) ,SK(  I),CK(  I  ) 
C—    IF  HAIN  5  OPIICN   GET   VERTICAL  PROFILES 

IF(  ICP.M£.5)GC    IC  I 

CALL  OISTRKNCI  ,  V,S,KPN,AI  ,  E  ,  C  ,  VF  R  ,  FRC  ,GR  ,  H  ,  IR  ,  A  ,  Y  ,  C  S  ,  Vt*  ,  VM  ,  ZM 
C,L»'.A,SCI,DIA,EFL,GRA,0/1,DE,SI1  ,SI2,VMA,VIA,VIB,NPV,RcA,Ree,KPF 
C,ERR,IST,Y5T  ,US  r  ,NEk,NST,NOJ,OR,IFR,HF,XX,YY,XR,YR,NC,.MF,GA,MG,NU) 

GO   TC  1 

C--    IF   MAIN   7  OPTICN   GET   REGRESSIONS  FACILITY 

<il      C'ALL   REGFAC  (KLSCS  I  1  ,NVS,GR,  IFR  ,W,B,GS  ,KOI,  VFR.FRCSK,  CK,h,  Y  ,  V 
CCSfNCn) 
GO    TO  1 
C--    AUXILIAR  INSTRUCTICNS 

55  ViRlTE(KC3,  I  15) 
DO   56  I=l,lCCC 

56  CONTINUE 
GO   TO  1 

80      IF(KPRC.FC. 1 )&C    TO  ^3 

REWIND  1^ 

WRIT£(1^,107)NC 

REWIND  12 

WRI TE( 12,  IGl  ) 

GO   TO  I 
itZ  KPRC=l 
^3  WRITE(KC3,123) 

GO   TC  2 
90     EKDFILE  12 

IF(  lAP.EC.DCALL  PLC(3,2,999) 

STOP 
C —  FORMATS: 
100     FORMAIC  OPTICNS:V 


STCP   AKC   EXIT  :  OV 

KEAC  RANDOF   SIGNALS    (    ONLY    )  :  !»/ 

SAt'E   AS   I,   +   HEAN,   SD   C   FREQUENCIES  :  2*/ 

SAy.E   AS   2,   4   SKEWNESS   £   KURTCSIS  :  3*/ 

TRANSFORM  VOLTAGES   TC  VELOCITIES  : 

SAME   AS   <!,        ECUNDAKY   LAYER   ANALYSIS  :  5V 

DUMMY   (RESERVED  FOR   FUTURE  DEVELOP.)  :  6*/ 

REGRESSION   ANALYSIS   FACILITY  :  7'/ 

PROTECT   PREVIOUS  RECORDS   IN   FILE   FNl^:  8»/ 

ERASE  PREVICU5  RECORDS    IN  FILE  FNl^  :  9*/ 


£•   ENTER  YOUP  CPTION  II*) 


101 


C  /    18X»»  =  =  =      USO>   NATICNAL   SEOIMEMAIICN   LABORATORY      =  = 

C  /    18X,'===  AND  == 

C  /   18X,»===  THE   UNIVERSITY  OF     MISSISSIPPI  == 

102  FORHATC    •t20AA/'    STATISTICAL  ANALYSIS*// 
£•   NUMBER   CF   SAMPLES  :«t2X,F7.0/ 

C»    SECONDS   FCB   CELAY  :'fF8.2/ 
t*   MINI^^LIM   VOLTAGE   FCLiNC         =»,FS.3f»  VOLTS*/ 
C*   MAXIMUM   VOLTAGE   FCUNC         =*iF<).3f*  VOLTS*/ 
C*   DATA    IS    IN   MULTIPLES   OF        '.fg-Zt*  VOLTS*) 

103  FORMAT(/*    WAIT   •) 

10^     FORMAT (/   I 6X,  •=  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  = 

£  /    I8Xt*===  PROGRAM  VELMEAS 

e  /   18X,*===  VERSION    I    (1986)  == 

C  /   l8Xt*===  MEASUREMENT   AND  ANALYSES 

C  /   18X,*===  CF   VELOCITIES    IN   TURBULENT  FLOWS 

105  FORMAT(II) 

106  FORMAT(/*   >>>>  >  (    TO  CCNTINUE.   ENTER  0  )•) 

107  F0RMAT(I5) 

108  FORMAT(  /) 

109  f6rMAT(*    *  ,20A'./F10.3tF9.0tt>FIC.3) 

110  FCRMAT(*    ENTER   "Y"   POSITION  *) 

111  FORMATC/*    "Y"   PRCEE   PC S  I  T I ON : * , F 11. 3 / ) 

112  F0RMAT(/FI0.3f  F<;.0,6FIC.3) 

113  F0RMAT(FI0.3tF9.Ct6FlC.3) 

llA  FCRMAT(//*    STATISTICAL    PARAMETERS  GETAINED:* 

£/7X,*PCS*»2X,'SAMPLES*t6X, 'MEAN', 6XT'S.C.*teX»*SKEW«,6X, 'KURT*/) 

115  FORMAT(/*    NO    RECCRDS    ARE   AVAILAELE    II'IIIIl  */) 

116  FORMATC  GPTICNS:'/ 


0'/ 

1  •/ 

2  (  AND  USE  IT)*/ 
3*/ 


£•  GO    EACK    TC   MAIN  MENU 

£•  USE   LAST    TRANSFORMATION  LAW 

£•  INTRCCUCE    TRANSFORMATION  LAk» 

£•  NO    TRANSFORM    (    JUST   USE   VCLTAGES  ) 

£*    ENTER   YOUR   OPTION  II') 

118     FORMAT(//'    INTRCCUCE   COEFFICIENTS     A,b,C,   FCR   THE  ECUATICN:' 
£/•          VELOCITY   =     A  -   VOLTS          E  *   SCRT(VOLTS)     +  C*/ 
£/*   FIRST    THE   COEFFICIENT   A:  :•) 

120  FORMATC    THEN   THE   CCEFFICIENT   E:  :*) 

121  FORMAT(*   BY   LASTt    THE   COEFFICIENT  C:  :  •) 

122  FORMATC/*    A   TRANSFORMATION   FUNCTION  HAS  BEEN   DEFINED  BY:* 
£/•  VELOCITY   =   A  «   VOLTS   •♦     C  ^   SCRT(VOLTS)     +  C* 

£/•    «   with:      a   =*tF12.5.*    t      B  =*.F12.5»*    «   C   =*fFl2.5,*  .*/) 

123  FORMATC/*  OUTPUT   FILES  HAS   BEEN   PROTECTED  5==^=?* 
£/*   YOU  CANNOT   ERASE   THEM  UNLESS  YCU  RE-START    THE  PROCEDURE*/) 

END 

SUBROUT INE  DISTRI(NCI,U»StNtAtB,CfEtF,G,H,I,TIT,Y,Z»VM,YM,ZP,L 
£»SD,DIAtBFL  »G RA • C A t OB t S  I  I  « S  1 2  •  VMA t V  I A t V  I Bt NP V t R E A  * RBB f NPF  tERRt 1ST 
£f YST»USTtNEh«NST  tNOJ«0«IFRtHF*XXfYY,XR«YR«MOtMF,GAf  hGf NU) 
ANALYSIS  CF   DISTRIBUTION  OF  VELOCITIES 
IMPLICIT   REAL«8  (A-H«C-Z) 
:::::       NEXT  I       LINES  NEEDED  FOR  VS  FORTRAN  VERSION 
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CHARACTER*^   LIT, TIT 
REALOA  XX»YYtXR»YR,HF 
COMMCN   Kl5tKC3» lAP 

01  HENS  I ON  U(NCI ) f S(KCI } tE(NOI }«F(NUI ) fYCNOI }»Z(NCI ) , ERR (NCI ) 
CtO(NCI ).B(NCI ),C(NDI ) tG(NOI ) , T 1 T ( 20 ) t h ( ND I , KC I ) , V  I  8 ( NPV ) ♦ RBE ( NP F ) 
C.  IFR(NOI ) t IST(NCJ) tYST (NDJ) ,UST (NDJ) thF(NDI »MF ) .XX ( MD ) t YY (MC ) 
CtXR(HO)  tYR(HC  )  t  JOK  (  <i  )  ♦  GA  (  NU  )  t  WG  (  NU  ) 

DATA   TGL/1.0-  1 0/ t  A  I  t  A2  ,C3  ,  A^  /  3  .  60-<»  t- 5  .  S'rO- 2  t  5  .  6  7C- 3  t  I  .  7  8  6  C  50- L  / 

WRl TE( 12f Ifl  ) 

18     FORMAT(//«   VELOCITY   0ISTRI8UTICN  TREATKENTV 

C/*   0)   POINTS   ARE   REARREKGED    (IF   NECESSARY   ;   FROM   EEC   TO   KATER  * 
C, 'SURFACE'//*    1)    POSITION  CORRECTION    FOR   BOTTCf"  PRCXIHITY*/) 
CALL   GAUSSl (GA.kGtNLtNU) 
IT  =  0 

CO  60  I=2»N 
L=l 

^8      IF(Y(1).6E.Y(I-1))GC   TC  60 
DO   50  J=L»I 

IF(Y(I).GE.Y( JJ )GC   TO  50 
L  =  J 

CI=Y(J) 
C2=U(J) 
Y(J)=Y(I) 

U(j)=u(n 

Y(I)=C1 
U(I)=C2 
IT=I 

GO  TO  48 
50  CCNTINUE 
60  CONTINUE 

IF(IT.EC.0)6C    TC  70 

WRITE(12t65)(I»V(I),L(I)tI=I»\} 
65      FORMAT(/»    PCIMS   HAVE    ACTUALLY    PEEN   REARRENGcO   FRCK   LUFTOf    TC  • 

Ct 'SURFACE: •/2(4X, • I • , I IX. • Y» , 1 IX, 'U   I  •  ) / ( 2 ( I  5 ♦ 2 F  I  2 . 3  ♦  •  I'))) 
70  CC=-1.D7 

CI=A1/CIA*02 

C2=A2/DIA 

CA=AA*CIA 

YMC-10.5«DIA 

VH  =  CO 

YHA=CO 

SD=-CO 

-   GET   LOG(Y)    .HAXIMLK  LEVEL   AND   MAXIMUM  VELOCITY 
DO   4  J=1«N 

IF(Y(J).GT.YKC)GC   TC  3 

C0R=C4-f(C34(C2*Cl^Y(J))c=Y(J))«Y(j) 

Y( J)=Y(J)iCOR 

URITe(I2f 8)JtCCR«Y(J) 
8     FGRMATC   LEVEL   «».I4.'    :   CCR= ' ♦ F 10. 5 , •    ,  NEh  Y=',F1C.3) 
3      IF(U( J).LT.VH)GC   TC  2 

VH=U(J) 

H  =  J 

2      IF(Y(J).LT.YMA)GC  TO  ^ 
YHA=Y(J) 
L  =  J 
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*,  CONTINUE 

ZMA=0LOG(YMA) 

C—  GET  REGRESSIONS   ANC   SELECT   THE   BEST   ONE    <   SMALLEST   SO  ) 

CALL   6STREG(£tNCI«Y«LfNtA«B«CfEfS«G«H«I,ZtF«S0t2«  1) 
C—  SEARCH  FOR    THE    KAXI^^UP   VELOCITY    IN   THE  KEGRESSICN 

WRITE( 12«36) 

36     FCR^AT(//•    3)   CC^PUTE   HAXIMUH  VELCCITY    IN   THE   REGRESSION*/)  " 
IFd.EO.DGC   TO  2d 
ZP=Z(M) 
VC  =  VH 

CZ=ZP/N-.l 

21  DO  22  J=U5C0 
VA  =  VC 

ZP=ZP-OZ  * 
VC=FREGI(ZPf AtCtNCItl) 
IF(VC.LT.VA  )GC    TC  26 
IF(ZP.GT.ZHA)GO   1C  26 

22  CONTINUE  r 
26      IF(CABS(OZ).LT.TCL)GC   TO  30 

OZ=-OZ-.A 
GO   TO  2  1 

C—   MAXIHUf  VELOCITY   FCUNC  AT    THE   MAXIMUM  LEVEL 
28  ZP=2MA 

VC=FREGl(ZPf A.CtNOItl) 
C —   MAX.   VELCC.    FCUNG   AT    INTERMEDIATE  LEVEL 
30  YM=CEXP(ZP) 

WRITE( 12f ^2)VC»Y«,ZP»YfA 
A2     FORHAT(/»   HAXIMt*'   VELCCITY   FCUNO  FOK   SELECTED   SFGRE  SS I  ON  :'/ lUX 
Ct  •UM=' ,F12.5,9X, 'AT   Yf.=  •  ,  F  I  2  .  5/ 2  <i  X ,  •      (    LN(YM)    =  ZP=',F12.5 
Ct«    )  VlOX,  •MAXIf'LM   LEVEL    ACCOLMEC      \KA  =',F12.5/) 
CO  K= 1 ,N 

B(K)=FREGl(Z(K),A,CfNCI,n/VC 

G(K)=Y(K)/YFA 

Z{K  )=Z(K)/Zf'A 

F(K)=U(K)/VC 
<rG      ERR(K)  =  (F(K)-e(K))/E(K)*lGC. 

V<RlTE(12»A6)(K,Y(K),L(K),G(K),Z(K),F(K),d(K),ERR(K)»K=l,N) 
<i6      FORHAT(//'    <i)      VALUES   C  E  T  A  I  NE  C  :  •  /  /  *  K  •  »  9  X  ,  •  Y  •  » <;  X  ,  •  t  •  ,  t  X  ,  •  Y /Y  • 

Ct6X,«Z/ZM',6X,'L/UK't5X,'UR/UM«»6X»«ERRiV(I5t7Fl0.3J) 
C —  OC   SIOE-k.ALL  CCRRECTICN 

CALL    WALL(BFLfGRA,0/ltCEtSIlfSI2tY,U»G»ZfBtF,£,NCI  ,  N  ,  Vf  A  t  V  I A  ♦  V  1 B 
CtNPV»REAfRBB»NPFtCEPtFR8»RB0»SHEtVIStSLP»DEPtYP»UP> 

VP  =  FREGl(DLCG(DEF*lGCC.)  ♦A.CNOI  ,I)*UF 

CP=OEP*YP 

VMA=VC*UP 

YMA=YM«YP«.001 

IF(VP.LT.VPA)GC   TO  77 

VMA=VP 

YHA=OP 

C —  GET  NEW   BEST   REGRESSION   IN  LN(Y-»)    »  U*  COORDINATES 
77     00   73  K=lfN 

IFR(K)=0 
73  Z(K)=0LCG(G(K)) 

CALL  BSTREG(6*N(:ifZtBtN«AfF,CfEtS«ERR*H«IfY,LtS0tlfl} 

00  5*t  K=lfN 
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F(K)=FREG1(Z(K} t^fCvNCIt  I) 
5^     ERR(K)=(F(K)-B(K) )/B(K)6lOO. 

WRITE(l2«56)(K,G(K)t2(K)tF(K),e(K)tERR(K)tK=ltN) 
56     FORMAT(//»    NEW   V>»LUE5   CB  T  A  I  NE  C  :  • // *  K  •  »  9  X  .  •  Y+ •  ,  5  X  *  •  L  N  (  Y4  }  • 

CSX, 'U**  f ax  t 'UR**  t7X, 'ERRX •/(  I5.5FI  1.3)  ) 
C—  ELIMNATE   (BUT   STCRE)  UP   TO  10  POINTS  WITH  ERR   =  OR  >  0.5 

NEW  =  N 

NST  =  0 

ELI=C.5 

DC  80  L=l.N 

EH=ELI 

K  =  0 

DC  71  M=1.N 

IF(CA8S(ERR(M) ).LE.EK)GO   TO  71 
Ef.  =  0A6S(ERR(H)) 
K  =  M 

71  CONTINUE 

IF(K.EQ.0.0R.EH.LE.ELI.CR.NST.GT.10)GC   TU  61 
NST  =  NST-»l 
IST(NST )=K+NST-1 
KEW=N-NST 
YST(NST)=G(K) 
UST(NST  )  =  fc(K  ) 
6C  76  J=K«NEh 
G(J)  =  6(J-H) 
Z( J)=DLOG(G(J)  ) 
76     B(J)  =  E(vJ+l) 

CALL  BSTREG(6,NCItZfE.NEWtA,F,CtEtSfERR,H,I,Y»UfSn,l,l) 
C —   NOTE   REGRESSION   VALLES   ARE   C I  HE NS  I CNL E S S 
DC   7A  K=1,NEW 

F(K)=FREGl (Z (K ) , A,Cf NCI f I ) 
7^      ERR(K)  =  (F(K  J-E(K))/£(K)=JIGC. 

WRITE{I2,76)YST(NST),(ERR(K),K=l,NEW) 
76     FORHAT(//»   PCINI   Y  =»,Fll.3t«    t   ELIMINATED.   NEW   ERROR  VALUES:' 

£/(8F  IC.3)  ) 
eO      IF(NST.EC.N0J)6C   TO  61 

61  WRITE(K03,82)NST  ,N 
WRirE(l2»82)NST,N 

62  F0R^'AT(/I5,'  POINTS  ELIMINATED  FROM  'flSt*  ORIGINAL  POINTS.  <<=  =  ') 
C —   COMPUTE   MEAN   VELOCITY   UA    ANC   ROUGH-CHANNEL   FLOW  RESISTANCE 

YMI=G(  I  ) 
ZMI  =  Z(  1  ) 

CALL  MFLOW(ShE«VlStSLP«GRAtFDW«UA«UAP«0EP,ATC,N0ItNEWt I ,GA«kGtNU 
CYMI  ,ZMI  ) 

C —   FIND  VIRTUAL  ORIGIN  DISTANCE   EPSILCN   ON  "NEW"   NUHEER   OF  POINTS 

CALL  ORIGIN(Y«U»G«Z,E«F«E»NDI «N EH «DP « VP t H » S « 0 • YP *  UP t YHA * Vr A  * A «C • I 
C«SHB»l.D3,VIS«l.C6tIFR«HF  f MF « lOK * XX « Y Y , XR t YR «M0 1 L T T , JOK t VK« AB * P I ) 
C —   PLOT   FUNCTIONS  OBTAINEC   DURING   ORIGIN  SEARCH 

CALL  KARMAN(Y,UtG«Z,B,F«E«NOI ,NEW«OPf VP«H«S,Cf YP*UP,YMA«VfA»A«C 
e.  If C.,0., IFR,HF»fF, IOK,XX,YY,XR,YR»MOtLTT) 
C —   PLOT   FUNCTIONS  OBTAINED   WITH  NULL  VIRTUAL  ORIGIN 

CALL   OEFECT(Y,UfGfZ,B,F,E«NOI»NEW«OP«VPtH«S«C,YP,UP  tYHA«Vf A,A,C 
C«  I,VK«AB,PI« IFR«HF,fF* ICKf XX,YY,XRtYRf MOfLTTf JOK) 
RETURN 
END 
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SUBROUTINE  k>LL(EFLtGR/>fOA,Ofa«SIltSI2fY«UfG«Z«F,B«EtK,N,vr'A«VIA 
Cf VIBtNPVtKEAtRBt f KPF •C£P»FRBtReO«SHef V ISfSLPtCPf YPtUP) 
C —   APPLY   JOHNSON'S  MElhOO  FOR   SIDE-WALL  CORRECTICN  AND  GCT   Y-'tU*  VALUES 
IMPLICIT   R£AL«8  (A-H,0-Z) 
COHHON  KI5*KC3tIAF 

DIMENSION   Y(^),L(P)tG(H),Z(M) t F (M ) , B ( M ) » E ( M ) , V  1 6 ( NP V ) ♦ R 6 1 ( NPF ) 
10  HRITE(KC3»I) 

1  FORMAT(/»    ENTER   WATER    TEMPERATURE    (CELSIUS)  :•) 

READ(KI5t*)TGC 

WRITE(KC3»2) 

2  FORMATC   ENTER   CEPTh   (INCHES)  :•) 

READ(KI5t«)CEP 

WRITE(K03«3) 

3  FORMATC    ENTER   CISChARGE   MANO^'ETER  READING   (IN.HG)  :•) 

READ(Kl5»*)Ch 

kRI  TE(KC3t^ ) 
t,     FCRf.ATC   ENTER   FREE   SURFACE   SLOPE  :•) 

R£A0(KI5f *)SLP 

WRITE(KC3,5) 
5     FORMATC*    ENTER   CHANNEL   WIDTH   (FEET)  :•) 

REAC(KI5t<>)EFL 

WRITE(KC3i7)TGC,CEPfCH,SLPfEFL 

7  FCRPAK/'    THUS:  •/2Xt'TGC  =  *tF12-3f 10X»'DEP='»F12.3/2X 
C'DH   =»tF12.3,lCX,*SLF=» tFl2.7/2Xt'EFL='»Fl2.3/ 

C/'  IF  VALUES  ARE  CCRRECTt  ENTER  0 
Ct'    IF   VALUES   ARE    WRONGt        ENTER      1  •) 

READ(K15f9)I 
9  FCRPAT(Il) 

IF(I-NE-0)GC    IC  iC 

WRITE(l2t6)TGCfCEP,CFtSLPtEFL 

8  FORMAT (//tiO( •  =  •  )/2X,  •  TGC  =  • »F 12. 3t •   CELSIUS   Ct  CEP='tF12.j 

INCHES'    /2X,'CH   =',F12.3»'    IN.hG.  t  SLP=».F12.7 

£  /2;it  •EFL=' »F12.3»*  FEET'/) 

VIS=CEXP(FREGl(TGC»VlA,VIBfNPV,NPV)) 
CFT  =  (CA*CSt;RT  (Ch  )40E  )CSI  l*-3 
CEP=C£P*SI2 
EFL  =  EFL*S  I  1 
CH=0H-SI2 
GS  =  DSCRT(GRA«SLF  ) 
AR£=DEP*EFL 
VEL=CFT/ARE 
PER=BFL*2.eCEP 
RAO=ARE/PER 
SHE=GS-OSCRT(RAC) 
FRC  =  8.-(SHE/VEL  )'-2 
REY=^.«VEL*RAC/VIS 
RAT=REY/FRC 

FRW  =  FREGI(DLGG(RAT) ,REAf RBB  f NPFtNFF) 

FRB=FRC4  2-f (C£F/EFL)«<FRC-FRW ) 

RBO=RAD*FRB/FRC 

SHB  =  6S»0SClRT(CAeS(ReC)  ) 

BST=FRB/FRC 

WST=FRW/FRC 

WRITE(I2t32)BFL»TGCt VIStDEPf CH,CFT,SLP»VEL»RAC»SHEf FRCREY 
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32 


FORMAK//*    SICE-WALL   CORReCTICN  PARAMiETtRS; 


35 


CHANNEL  WIDTH  BFL: 
TEMPERATURE  TGC: 
VISCOSITY  VIS= 
DEPTH  D£P  = 

DISCHARGE   ^ANO-ETER   READING     CH  - 
DISCHARGE  CFT= 
ENERGY  SLOPE  SLF= 
MEAN   VELOCITY  VEL: 
HYDRAULIC   RATIC  RAC= 
SHEAR   VELOCITY  SHE- 
DARCY-WEISEACF    FRICT.COEFF.  FRC= 
REYNOLDS  NUMBER  REY= 
REY/FRC  RATIC  RAT= 
WALL-FRICT  ICK   CCEFF.  FPW:: 
BED-FRICTICK  CCEFF.  FRE= 
EEC  HYDRAULIC   RATIC  REC= 
BED   SHEAR  VELCCITY  ShE= 
BED/GLOEAL    STRESS  RATIO  EST= 
WALL/GLOEAL   STRESS   RATIC  WST= 
CCMPUTE  Y4  AND  U+ 
YP=SHB/VIS*.G01 
UP=l./SHB 
DO   35  I=ltN 
G(I)=Y(I)*YP 
2(I)=0LCG(G(I)  ) 
F( I )=U( I  )*UP 
YP  =  YPi=10C0. 
DP=DEP 
RETURN 
EhD 


C* 
£• 
C» 
C* 

e* 
t» 

£• 
£• 
£• 
£• 
£  • 
£• 
£• 
£• 
£• 
£• 
£  • 
£• 
£• 


FI2.3* 
FIO.lt 
E16.3, 

FI3.<tt 
Fl^^.S, 
F16.7/ 
Fl3.<»f 
F13.4* 
F  I2.4t 
F13.^/ 
E16.3/ 
£16.3/ 
F13.^/ 
F13.^/ 
F13.<r» 
F13.^t 
Fl  1.2/ 
Fll.2) 


// 
METER* / 

CELSIUS  DEG.V 
SO.MFTERS/SEC. •/ 
METER*/ 

METER    (OF  HG)'/ 
CUB. METERS/SEC.*/ 

METERS/SfcC.*/ 
METER* / 
METER/SEC. •/ 


METER* / 
METER/SEC 


SUBROUTINE  MFLCW(SHEfVIStSLP»GRA,FDW,LAtUAPtCEPfA,CfM.N,IFfGATUG 
£,NUfYMI »2MI ) 

COMPUTE   MEAN   VELCCITY   UA   BY    INTEGRATING    THE    EEST  REGRESSICN 

POLYNOMIALt    AND    CCMPtTc   OARCY-WE I SEACH   FRICTION  COEFFICIENT  FDW 

IMPLICIT    REAL*8  (A-h»C-2) 

COMMON   KI5»KC3f  lAP 

CIMENSICN   C(M J ,GA(NL) fWGCNU) 

YMA=DEP-SHE/VIS 

YTP=YMA-YMI 

YTM=YTP«.5 

SUM=FREGl (ZMI ,A,C»Mt IP)*YMI*.5 
DC   10  I=lfNU 

Z  =  0L0G((1  .♦GAC  I  )  )«YTM-»YMI  ) 
10     SUM=SUM4WG( I )«FRE6l(2»AfCtM,IP)CYTM 
UAP=SUM/YMA 
FDH=8./UAP**2 
UA=UAP*SHB 

WR  I  TE(i2f  lOOUA  tLAPvFOW 

hRITE(KC3«  ICOUAtUAPfFCH 
IOC     F0RMAT(/80( •=• )/ •   FLCW   RESISTANCE  CALCULATIONS   FROM  REGRESSION* 
£/•      MEAN  VELCCITY  UA     =   •♦F12.3,*  M./SEC* 

£/•      OIMENSICNLESS  MEAN  UA-*   =  •»F12.3 


£/•     OARCY-WEISdACH  CCEFF,         fCU   =  •♦F12.3/) 
RETURN 
EKC 


•     SUBROUT  INE    K ARH A K ( Y 1 0 t G * Z  « F  * B  r E t M  * N 1 0 P t VP t H t S «C t YP « UP « YF A «VfA * A vR 
C.IPC»SHVtVIStIFfi,HFtHF,IOK»XX,Y>,XR,YRt^«D»LTT) 

~   PLOT   FUNCTIONS  UPCN  RELATIVE   DEPTH   CBTAINED   IK   ROUTINE  ORIGIN 
IMPLICIT  REAL*e  (A-H,C-Z) 

REAL*<i  V<itV5tV6t>X»YY,XR»YRtX3fY3tA3»XOfYO,AX,AY,XXl,XX2,YYI,YY2 
CTXB«Y8fXStYStHF»XA«YA 
:::::       NEXT  I       LINES  NEEDED  FOR   VS  FORTRAN  VERSION 

CHARACTER**.  LlA,LlE.LlfL2fL3.L^tL5tL6tL7»L8»LStM2,H3.LT,LTr 
COMMON  Kl3tKC3flAP 

CI  MENS  I CN  Y(M),L(M)»G(M),2(M)fF(M),e(M)iE(M),S(M),C(M),H(M.M) 
£f  Ll(3)  .L2(  l)f  L3(5)fL<.(2)  .L5(2),  IPE{8)  ,XX(MD),YY(MO)  »XR(MD  ),YR(HD) 
C,L6(2)tLT(<t),R(M),L7(2),L8(2),L<J(7),IFR(M),HF(M,MF),XA(<i),YA(ii) 
C»M3(5tA)tM2(ltA) 

DATA   PIM/l.5707S6327C0/,Ll/»  • ♦ • LN ( H • , • /D )    • / t X A  ,  YA/ 1  . 1 8 . t  1 . 1 8 • 

C,6.»6..I.,l./.M2/»V.K.»,'     AP»,«EFS+»,'     PI»/tM3/«   KAR'.'MAN  • 
Cf 'CCEF' ♦•FICI* t  "ENT  • . • INT E • t • RC £P • . • T  •    t«  VI* 

Ct'RTUA't'L     0»f*RIGI«f«N  •t'WAKE't*   STR* t ' ENGT  •  t 'H  •/ 

C,IPE/l.2,3fAf5t£f7,e/»Il.I2,I3»IP/3»lf5,8/tX3.Y3tA3/'i.t7.2tO./ 
C.AX,  AY/6,  f  ^i./t  JX,JY,  IX,IY,KX,KY/0t0»2t2,3f3/.I6fI7/2«2/fL<ifLb»L6/ 
C«'t      V»,»K   =  ,   A»»»P   =    't*    f   E»»«4   =   •/»  14t  I5/2t2/tLT/ 'CASE' 

C,»   NUM'f'fcER   't*  VtL7/»       U'»**   =    •  / 1 1  T  ,  1 8  .  1 9 /<»  ♦  2  ,  7/ ,  L8  /  •  VIS* 

£♦•0.=    VfL9/»(   VA»,'LU£S'»*    IN   • r 'MM.    •.'AND   •»«SEC.»f»)  •/ 

—  DEFINE   PLOTTING  PARAMETERS 
3  LT(IT)=LTT 

WRIT£(KC3,l  ) 

1  F0RMAT(/60(        )/•    TC   PLOT    FUNCTIONS   UPON   RELATIVE    DEPTH,  • 
t/lOX, 'ENTER    I    (FEN   PLCTTER)    CR   2    (TEKTRONIX)   CR    3  (VERSATEC)' 
£/•   CThERViISEf      ENTER   0  :•) 

REA0(KI5f 2  )  IPL 
IF( IPL.EC.3  )  IAH= 1 

2  FORMAT(II) 

—  OPTIONAL  PLOTTING 

IF(  I  PL.  EQ.O)RETLi*N 
WRITE(I2,'i  )IOK 

<»      F0RMAT(/80(  •  =  •  )/•   PLOT   OF   FUNCTIONS   UPON  RELATIVE  DEPTH* 
£/•    FCR    'tis,*    C^TA  PCINTSV) 
:::::       NEXT  I       LINES       NEECEC  FOR  CALCCMP  LIBRARY 

CALL  PLOdPLflfC) 
:::::       NEXT         I       LINES       NEEDED  FOR  hP-ISPP  LIBRARY 

CALL  HPINIT(I«0*C,0»20) 
CALL  NEWPEN(IPE(3)) 

CALL  SYMeOL(I.5f6.3fl^»LTt0.tA*IT) 

JJ  =  7 

00  80  ICA=I«^ 
JJ=JJ+I 
00   II    1=1, lOK 
XX( I)=AL0G(HF(I,7)) 
Y(I)=XX(I) 
XR(I)=XX(I) 
YY(I)=HF(I,JJ) 
11  U(I)=YY(I) 
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I 


WRITE(l2t20)IC>»t  (P3(  I.ICA),I  =  U5) 
20     F0RMAT(//»===>>»,I3f 'A):  '.SAA) 

CALL  BSTRtG(6tM*Y«UfI0KfA«C«BtEtFtGtHtICtZt5fS0tltl) 

CALL   LIHITS(XXl,>X2tYVltYY2fXX,YY .MD, IGK) 

XO=XA( ICA) 

YO=YA(ICA) 

X3=X042« 

Y3=Y0+AV+. 15 

00   12  I=l»5 

12  L3{I)=M3(If ICA) 
DO   13  I=1«ICK 

13  YR(I)=FREGI(Y(I),ATEfMtIC) 
L2(  I)  =  M2(ltICA) 

60     CALL   HPLCT2(-lf  ltLltIIfL2»I2fL3.I3,X3»Y3fA3tIPEtIP»XX,YYtXR,YR 
CtMD,  IOK,XO»YO,AX  t*,Xf  KXtAYt  JY,KY»  IX.XX  1  ♦XX2,  lY.YYl  ,YY2 
CLTt  ITtXStYStL7,ntSHVfLflt  I6»  VISf  L9t  19  tV6f  Xc.YB,  0) 

CALL  PLC(IPLt2»15) 

GO   TO  3 

END 


SUBROUTINE  CEEECT(Y,UfGtZtF,6,EfP,N»0PtVPtH»S»C»YP»UP,YKA,VHAtA,R 
CtlPOtVKtAEtPI  ,  IFP«HF»^'F»IOKtXX,YYtXR,YRfMD,LTT.JOK) 

—  PLOT   LAWS  OF   THE   WALLt   ThE  WAKE   AKC  V EL CC I T Y- C EF EC T   LAW   (FRCH  BED) 

IMPLICIT    REAL*e  (A-H»C-Z) 

REAL*^    V^tV5»V6tXX,YY,XR,YRtX3»Y3fA3tX0tYOtAX,AY,XXUXX2tYYI.YY2  ' 
C«XBf>'6tXS*YSfHFtXAtYA 
:::::        NEXT  2        LINES  NEEDED  FOR   VS   FORTRAN  VERSION 

CHARACTER*'.  LlfL2tL3tL'»tL5,L6,L7,La,L9,f2.M3fLT,LTT,LA,LE»LCtLTe 
CfLlAfLie 

COMMON  Kl5tKC3fIAP 

DIMENSION  Y(f),L(f)»6(M)tZ(M),F(M),B(M),fc(M),S(K)»C{M)tH(h,P) 
£»Ll(3)tL2(l)fL2(5)tLA(<.),L5(^),IPE(d),XX(MC)tYY(HC),XR(^D)tYi^(MG) 
C,L6(<.),LT(<,),RC^'),IFR(M),HF(M,MF),XA(A),YA(A)tL7(<.>,L8(^),LS(^) 
C,M3(  5f  A)  f  M2(  I  f  ^  )  t  JOK(^)  ,  IOC  (  6  J  t  I UC  (  6  )  ,  K  TQ  (  6  )  t  L  A  (  A  }  ♦  L  b  ( )  ,  LC  ) 
C,LTE(2)fLlA(3)»LlE(3),JJJ(A) 

DATA   PIM/  1  .570  796327DC/tLIA/'  LN  •  t  •  (  Y-» )  •  /  i  X  A  ,Y  A  /  I  .  ,  8  .  1 1  . 

C,e.  ♦2*6.,2*l./♦^2/•      L+'f'    D+    't*      L4»,»        WVfM3/' VELO*  t 'C  .  C« 
C* • ISTR • T • lEUT • t MCN    • » • VEL . ' f • -D E F • , • EC T    • » * D  I  S T  •  ,  •  R  1  d . «  t'LOG.» 
Ct*    LAW't*    CF    't'ThE    'f'WALL'.*      WA',»KE      ' ♦ ' FUNC •  t  •  T  I  ON • ,  •  S  '/ 
£tIPE/lt2»3tAt5,6t7,e/tIltI2tI3»IP/3tl»5»8/,X3,Y3»A3/'..,7.2,C./ 
ttAXfAY/t.,A./»«X,JY,IX,IY,KXTKY/CfO,2»2,3»3/tLA/'MEAS*«'UPEC' 
£t'    WAK«,'£        •/♦LS/'CCLE't 'S   FU ' t • NC T I • ♦ • ON      V t Lo/ •  F I NL • , • EY  F» 
Ct 'UNCT  •  ♦  •  ION    VtlTflAf  I5,I6/A*'»/,LT/»CASE*»'   NUM»,*EER  •/ 
C,I0Q/3«Ct If 2»3/,IUC/A«l,2*2/.KTQ/2*-l,-2,4,5,6/,Xb,YE/A.7,l.7/ 
C,L7/*      VO't'N   KA»,«RMAN»,«      =    VtLB/'         I • . • N T £R •  ,  • C EP T • ,  •      =  •/ 
£tL9/»WAKE»        STR»»'ENGI«»«H   =   •  /  t  LTB/ •  FROM  •  ,  •  BEDVtIE/2/ 
£f JJJ/l3t20,2f 13/tLlE/«  't*  LN(»,»Y/0)V 

VA  =  VK 

V5  =  AB 

V6  =  PI 

—  DEFINE   PLOTTING  PARAMETERS 

LT(IT)=LTT 
3  WRITE(KC3tl) 

I     FORMAT(/»   LAWS   CF    ThE   WALL  ANC   THE   WAKE   AND   VELOCITY-DEFECT   LAW  :• 
£/•    ENTER   I    (PEN   PLOTTER)   OR   2    (TEKTRONIX)     OR   3  (VERSATEC)* 
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C/«   OTHERWISEt     ENTER  0  :♦) 
REA0(KIS«2)IPL 
2  FORMAT(Il) 

IF(  IPL.EC.3) I>H= I 
C —  OPTIOKAL  FLCniNG 

IF(  IPL.EQ.ORETLPN 
V4RITE(  12f^  )JOK(  1  } 
^      F0RMATC/80( •=• )/•    PLCT   OF    FUNCTICKS    WITH   Y+   CCMPUTED  FRCM 
£/•   FCR   'flSt*   CAJA  PCINTSV) 
C:::::       NEXT         I       LIKES       NEEDEO  FOR  CALCCfP  LIoRARY 

CALL  PLC(IPLtltC) 
C:::::       NEXT         1       LINES       NEEDED  FOR  hP-ISPP  LIEt<ARY 

C  CALL  HPINIT (ItOtCfOtZC) 

CALL  NEWPEN(  IPEO)) 

CALL  SYKBaL(1.5t9.6T.UtLT«0.,^ciT) 

JJ  =  JJJ(I  ) 

DO  60  JCA=Lf6 

ICA  =  HINC(JCA,<i  ) 

IOK=JOK(ICA) 

JJ  =  JJ*  I 

KK=JJJ(ICA) 

DC   11  I=lfICK 

XX( I)=HF( I tKK  ) 

YU)=XX(I) 

XR(I)=XX(I) 

VY(  I)=HF( I ♦ JJ) 

11  U(I)=YY(I) 
N=MIN0(ICK-2,8) 

GO   T0(  12»  l<i»12t  I6,2^,£^)  »JCA 

12  CO    13  I=lt3 

13  L  I( I)  =  L  1A( I  ) 
GC    TC  16 

1*.      CO   15    I  =  lt3 

15  LI(I)=L1E(I) 

16  WRITE(12^20)ICAt(^'3(ITICA),I=lt5) 
20      FCRMAT(//'=  =  =  >>*  f  I3»  •£):  •t5A'.) 

CALL   ESTREG(6 t f , Y,U» ICK, A,C t E »E t F ,G ,h, IC t Z t S ,S0 f 1 t  I  J 
Z'i      CALL   LIHITS(XXl,XX2tYYl,YY2fXX,YYtM0,  ICK) 
XO=XA(  ICA) 
YO=YA(ICA) 
X3=X042. 
Y3=YC4AY4.15 

GO   TO(<iGf  <iO«33«36«80t8G)  f  JCA 
33     DC   3^   I  =  U4 

LA( I)=L7( I ) 

LE(I  )=Le(  1) 
3^  LC{I)=LS(I) 

XS=l,5 

YS=A.5 

GO   TC  ^0 
36     DO  38  I=lfA 

LA(I)=L^(I) 

LB(I)=L5(I) 
38  LC(I)=L6(I) 

XS=8.5 
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YS=^.5 
AO     CG  A2  1=1 «5 
A2     L3(  I  )=H3( 1 , ICA) 

00  <i3   1  =  1  f  lOK 
A3     YR(I)  =  FREGl(Y(IJ,/l,6,h.IC) 

L2(  l)=M2(lt  IC-A) 

80     CALL  HPL0T2(KK(  JCA)f  IUQ(  JCA)  »L1,  I  l»L2fI2»L3fI3.X3fY3,A3,IPEtIP 
Cf XXf YYf XR t YR tKCf lCK,XOtYO,AX, JX,KX,AY, JYtKY , iXtXXl ,XX2. lYfYYl 
t»YY2tLTetIE»XSTYS.LA,IAtV<ifLB,I5tV5,LCtI6,V6,XBtYlifI0C(JCA)) 

CALL  PL0(IPL»2t  15) 

GC   TO  3 

EKO 

C  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  ====  =  =  ===  =  = 

SU6RCUT  INF   OR  I GI N  (  Y  t  U  t  G  «  2 1  F  «  B  ,  E  t  K  «N  t  C  F  »  VP  t  H  t  S  «C  «  YP  *  UP  t  Y^  A  *  V^"  A  «A  tR 
C,  IPOf SHV^VlSf IFR  fhF»MF,IOKtXX,YYtXR»YR,MOfLTT,JCK,VKA,AEtPI A) 
C —   PINO   VIRTUAL   ORIGIN  DISTANCE 
IMPLICIT  REAL-8  (A-H,C-2) 

REAL'A  V<itV5fV6fXX»YY,XR,YR»X3fY3»A3tX0»Y0.AX,AY,XXl,XX2»YYltYY2 
Cf XBtYBtXSf YSthF 

C:::::       NEXT         1       LIKES  NEEDED  FOR   VS  FORTRAN  VERSION 

ChARACTER*-!!  LltLlC,L2fL3tL30tLA,L5,L6.L7»L8,L9t«2fM3tLT,LTT 
COMMON  KI5tKC2tIAP 

CI^'ENSICN  Y(^'),L(^)fG(^'),Z(M)»F(M)♦b(M),E(M),S(M),C(^'),^■(^t^') 
CfLl(3),L2(3)*L3(5),L'i(2),L5(2)fIPE(8),XX(MO),YY(MC),XK(PC)tYR(MD; 
£,L6(2)tLT(A),R(/'),L7(2),L8(2),L9(7),IFR(M),HF(M,MF),L3D(5,2) 
CtLlD(3»2) » JCKCA ) 

DATA   PIA^/1  .  5707<i6327CC/,LlO/»LN(Y«,  •+   -»    't'E-*)    •  ,  •  2  X- T  •  «  •  ANH*  • 
£t'-l   XV»X0,Y0/l.tl./,L2/*  'f*      U-f  •/tL3D/ 'U-*      '.'VS.  • 

£»•    LNC»'Y4  E-»)','U-f   V','S.    2*  f 'X-TA*.  'NH*-',*  I(X)  V 

£.IPE/lt2t3t'»t5t6,7,e/tIltI2fI3»IP/3f3»5»8/»X3»Y2,A3/A.,7.2,C./ 
£tAXtAY/e.»6./,JX,JY,IX,IY,KX,KY/0f0t2»2f3t3/tIb.I7/2.2/ 
C,LAfL5»L6/' ,      V',«K   =  ,    A«,'P    =  ,    E't*+    =    V  t  I  <i  .  I  5/ 2 ,  2/ 

£tLT/»CASE* f •    NOK't'aER  VtL?/'        U','«   =    ' / »  I  T , I  8 , 1 9 ♦ 2  ,  7/ 

£»L8/'   VIS*f'C.=    VtLS/'t   VA»»'LUES'»«    IN   •t'MM.    •♦'AND  'f'SEC* 
£f')  '/tRER/lO.CO/ 
C—   DEFINE   PLOTTING  PARAMETERS 

IUS  =  0 

Nl  =  N 
10  ICK=0 

PER=0. 

l^RI  TE(K03  ♦  1  ) 

I      FCRMAT(/»    TC   PLC!   THE   VIRTUAL-ORIGIN  SEARCH* 

£/•   ENTER    1    (PEN   PLOTTER)   OR   2    (TEKTRONIX)      CR  3  (VcRSATEC)' 
£/•   OTHERWISE,     ENTER  0  :•) 
REA0(KI5,e6 ) IPL 
IF(IPL.£Q.3)IAP=1 
C —   NEXT   A  LINES   ARE   FOR  FUTURE  DEVELOPMENT 
C  WRITE(KC3,A0) 

C  AO     FCRMAT(/»    ENTER   LAW   :      1   =   "LN   TYPE"    ,      2   =   -TANH  TYPE"*) 
C  REA0(KI5«86)LAW 
C  IF(LAW.LT. 1 .CR.LAW.GT .2)LAW= 1 

LAU=I 

IF( IUS.NE.O)GO   TC  2 
IUS=1 

kRITE(KC3«A) 


A-13 


A     FORM*T(/»    ENTER  CASE   KLMBER    (LiP    TC  FOLR  FIGURES):  •) 
REAO(KI5,5)LT(IT ) 
kRITEdZf  89)LT(IT) 


C  lOXt»  CASE   ^U^'BER  •♦A<rf5Xf* 

C  lOX,' 


LTT=LT( IT) 
5  FCRMAT(A<») 
2P=CL0G(DP) 

VP  =  FREG1(ZP,A,R,^',IP0) 

V>'A  =  FREGl(DLC6(YPA)f  A,K,Hf  IPO  ) 

kRITE(12«6<i)LT(n)«(ItG(I)tZ(I)tF(I)tl  =  I«N} 

hRITE(12«88)CP«ZF,VP 

IF(N.EC.M)GC   TC  2 

N  =  N4l 

G(N)=OP 

Z(N)=ZP 

F(N)=VP 

WRI  TE(KC3f  91  )N,Y>'A.Vf  A 
V.RITE(I2.91  )K,YrA,VPA 

2  KAN=0 

XS=XG*.3 
YS=Y0*AY-.3 
X8=-65*AX-»X0 
YE=.7+Y0 

C —   CPTICNAL   PLCTTING   hlTH   "hP-ISPPthP    175808"(0R   CALCGMP  ) 


IF(  IPL.EQ.O  )GC    TC  3 
C:::::        NEXT  I        LINES        NEEDED  FOR   CALCCHP  LIBRARY 

CALL   PLC(  IPLt 1 f  C) 
C:::::        NEXT  I        LINES        NEEDED  FOR   HP-ISPP  LIBRARY 

C  CALL  hPIM  K 1 ,C,CfCt2C) 

CC   6    1=1, N 

GC  T0(^I«<t2),LAU 


C —   LCG  LAW 

^1      XX(I  )  =  CL0G(G( I ) ) 
GO   TC  '.3 
C —    TANH  LAW 

<i2      HF(  I  ,  I  )=G(  I  )/YMA 

FUX=SCRT(1.-HF( 1,1) ) 
EA=DEXP(FUX ) 
EB=OEXP(-FUX) 

XX(  I)  =  FUX4FLX-(EA-EE)/(£A+Eb) 
HF(I  ,2)  =  FUX 
C —   ANY  LAW 

^3  YY(I)=F(I) 
XR(  I)  =  XX( I ) 
XRI=OLCG(G(I)) 
6  YR(I)=FREG1(XRI,A,H,H,IP0) 

CALL  HMITS(XXl  ,XX2, YYl,  YY2,XX,YY,MD,N) 
DC   57  1=1,13 

57  L3(I)  =  L3D(  I,LAW) 
00  58  I=lfll 

58  Lid  )  =  LIO(I  ,LAW) 
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CALL   HPLOT2(0, I,LltIltL2fI2.L2tI3,X3.Y3»A3fIPE.IPtXX,YY,XR,YR 
CtM0fN,X0»Y0t/>X,JXfKX,AY.JYtKY,lX,XXl,XX2»IYtYYltYY2 
CLTf  ITtXSf YSf L7, I7»SHV»L8f I  8 , V  I S ♦ L 9 1 1 S t V6 t XE » YB ,    1 ) 
C —    SEARCH  OF   VIRTUAL   CRIGIN   BEGINS  HERE 
3     PER  =  PER-»1. 

0PM=PER«.01«YMA 
DC   12  I=ltN 

IF(G(I).GT.DFH)6C   TC  IS 
12  CONTINUE 
IM      M  =  I-l 

IF(M.EC.N1  )GC    TC  II 
C —   IF   M   HAVE   eEEN   TESTEC   GC   FOR   CTHER   M  VALUE 
IF(M.LE.3.CR.  IFR(M)  .EC.  1  }Ga   TC  3 
11  IFR<NI)=1 
C —    IMTIALIZATE   SEARCH  PARAFETFRS 
LK  =  2 

IF(NI.GE.N1 )LK=3 

T0E=l.E-6 

SC=1.EIC 

0P1=.C0I*YP 

EPl=DPl 

JET  =  C 

IfO  =  C 

C —    SEARCH   FOR   NULL    SECOKC   REGRESS.    CCEFF.    IN   A   2NC-CRCcR  RcGPfSS. 
C        FCR   OIFFERENT    VIRTLAL  DISTANCES 
50      00   55  J=lf9<99 

EP1  =  £P  HCPl 

0EL  =  YMA-tEPl 

DC   52  I=ltNI 

GGG  =  G{  I  )*tPl 

IF(GGG.LE.C. )&C   TC  61 

GC    TC(21»22) tLAW 
C —   LCG  LAW 

21  C( I)=OLCG(GGG) 
GC   TC  52 

C —    TANH  LAW 

22  HFdf  l)=GGG/CtL 
FUX=SQRT(AES( 1 .-FF(I t I) ) ) 
EA=0EXP(FUX) 
EE=CEXP(-FUX ) 

C(I)=2.*FUX-(EA-Ee)/(EA*Ee) 
HF( I  ,2)=FUX 
52  CONTINUE 

SOE=REGRE l(MtCfF,2,AL.BfMtM,H»K,E.ZtStH,0tl.C-30) 

J£T=JET4l 

IF(B(2)*(SC-B(2) ).LE.O-)GO   TC  60 
5^*     SC  =  B(2) 
55  AA=AL 

C —  CHECK   FOR  CONVERGENCE   AND   EVENTUALLY  CHANGE   DIRECTION  OF  SEARCH 
60  SC=B(2) 

IF(OABS(SC).LE.TCE)GC   TO  70 
IC0=IC0+1 

IF(IC0.GE.50C JGC   TC  62 
1F(DABS(0P1).6T. 1.0- 1C)DP1=-DP1*.S 
GO   TO  50 
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I 


61  OPl=OAeS(CPl) 
GO   TO  SO 

C—  CK  FAILURE   TRY  OTHER   SET  OF  POINTS 

62  WRITE(12t6^)IC0«jET,SC«U(2)«GPl«EPI 

6^     FORMATC   UNSOLVECiIf  JtSC,E2fOt£  =  «t2I<»»^Ell.3) 

GO   TO  3 

C —  CN  SUCCESS*  GET  LINEAR  RE6RESSICN»  KARMAN  COEFFICIENT,  INTERCEPT 
C        WAKE   STRENGTH,   CCLES'    ANC  FINLEY*      WAKE   FUNCTIONS    ,  ETC 

70  Yr'X  =  YMA-»EPl 
SDE=REGREl(NI,C,f,l.AA,E,M»M,K,M,E,Z,S,H,0»l.C-20) 
IF(SCE.EC.O. )GC    TC  62 

EPS=EP1/YP 
VK=l./e(l) 
GO  T0(3If32)«LAk 
C —  LOG  LAW 

31  PIW=  .5*(VK«=(VhA-AA)-CLCG(YMX)  ) 
FIN=VK/PIW 

00   72   1=1, N 

C(I)=G(I)-»EPl 

Z( I )=OLCG(C(  I  )  ) 

HI=C(I)/YMX 

HF(  I,l)=Hl 

HF(,I,2)  =  DLCG(hl  ) 

HF(I,3)=F(N)-F(I) 

HF(  I  ,^  )  =  (F(  I  )-Z(  1)/VK-AA)=5FIN 

HF(  I,5)  =  2.*CSIN(PIM*H1)**2 

72  HF(I,6)  =  ((6.-FIN-^.«Hl  )<-H  1 -f  F  I  N  )  =JH  1 
WRITE(12,83)M,P£R,SCE,SC,EPS,EP1  ,  A  A  ,  VK  ,  P I  k  ,  YhX  ,  VMA 
WRITE(12,90)(I,C(I),Z(I),F(I),(HF(I,K),K=I,6),I=l,N) 

C  WRITE(16,23)LAW,N,M,P£R,SDE,EFltAA,VK,PIW,YKX,VHA 
C  C  , (I  ,C ( I  )  ,  2 ( I  )  ,F(I  ),  (HF(I ,K ) ,K= I »6) , 1  =  1 ,N) 

23  FCRMAT(3I5/AFl<i,5/'iFI^.5/(I5,FlC.3.eF6.3)) 
GO    TO  71 
C —   TANh  LAW 

32  HRI  TE  (12  ,e7)M ,PER,SC£,SC,EPS,£Pl ,AA,VK,YMX,VMA 
WRITE(12,92)(I,hF(I,l),HF(I,2J,C(I),F(I),I=l,N) 

C  WRI T£ (  16 ,2^  )LAU  ,K  ,M ,PER ,SC£ , EP 1 , AA, VK,OEL, YMX ,VMA 

C  C  ,  (I  ,hF  (  1  ,  1  ),hF( I ,2) ,C( I  ),F( I ) , 1  =  1 ,N) 

2<i  FCRMAT(3I5/AFl<i.5/AFl<..5/(I5,^Fl2.A)) 

71  ICK=IOK-H 

HF(  ICK,7)=G(M )/G(N) 
hF(  ICK,8)  =  VK 
HF(  I0K,9)  =  AA 
HF(  I0K,10)  =  EP1 
HF(IOK,ll)=PIW 
HF(  ICK,12)=NI 
IF(IPL.LE.O)GC   TC  75 
00  73   1=1, NI 
XR(I)=Z(I) 

YR(  I  )  =  FREGI(Z(I  )f  AA«B,f4,  I) 
XX(I)=Z(I) 

73  YY(I)=F(I) 
KAN=KAN-»l 
IF(KAN.EQ.7)LK=3 
V^  =  VK 
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V5  =  AA 
V6=EPl 

CALL   HPLOWO.  I  tL  I  1 1  l.L2fr2fL3»I3,X3.Y3tA3,IPE»IP.XX,YY,XR.YR 
£«H0fNI«X0tYCtAX«JXtKXtAY,JYtKY«IX«XXlfXX2tIYtYYlfYY2 
ttLT»ITtXSfYStL<itI'itV<itL5tI5»V5fL6fI6»V6,0.f0.,LK) 
IF(LK.EQ.3)CALL   F LO ( I P L » 2 t I  2  ) 
75     IF(LK-EC.2)GC   TC  3 
HRITE(K03f  <J3) 

IF(M.LT.N1  }kRIU(KC2t9<i)M  .Kl 
WRITE(KC3f95) 
REA0(Kl5f e6)K 
IF(K.EC.O)GC   TC  59 
IF(K.EC.1.ANC.NI.LT.M )GC   TO  2 
DC   7^  K=^tN 
74  IFR(K)=0 
GO   TO  10 

C —   CCMPUie  OISTRIEUT ICNS   FOR   NULL   VIRTUAL  ORIGIN 
59  OPM=RER*.OI*YHA 
00  4-it   I  =  lfN 

lF(6(I).GT.0Pf )GC   TC  45 

44  CONTINUE 

45  NJ=I-1 

DO  48  I=ltN 
48  d(I)=DLCG(G(I)) 

SDJ=REGREl (NJ»C »F,1, Ae f BtHf M,H,H,E» 2t StH.Of l.C-20) 
VKA  =  1  ./E(  1  ) 

PIA=.5*(VKA«(VKA-AB)-CL0G(YMA ) ) 

FIN=VKA/PIA 

DO   46  I=ltN 

hl  =  G(  I)/YMA 

HF(  I  ,13)=C(  I  ) 

HF(  I,  14)  =  F(  I  ) 

hF(  I,15)=Vf'A-F(  I  ) 

HF(  I  ♦  16)  =  F( I ) 

HF(I,17)  =  (F(n-C(  I)/VKA-AB)*FIN 
hF(  I,18)=2.*CSIN(PIP*Hl)=t*2 
HF(I,IS)=((6.-FIN-4.-hl)*hl+FlN)OHl 

46  HF(It20)=Hl 
URIie(12»47)NJfRERtSCJ,APtVKA»PIA,YMA»VPA 

C.(I,G(I)tC(I)tF(I)»hF(I,15),(HF(UK),K=17,l9),I=l,N) 
JOK(  I  )-N 
JCK(2)=N 
JCK(3)=KJ 
JCK(4 )=N 
RETURN 

47  F0RMAT(/79( •-• )/ •   LAW    TYPE    1    t   U*.VS.LN(Y+)    FOR  NULL   VIRTLAL    GR  • 
CtMGINV*   USING*, I4»'    POINTS    (   PER   =*,F8.2,«   *  OF   B. LAYER  )• 

£/•   STANDARD  ERKCR  OF   ESTIMATE      SE  =«,E12.3 

C/'    INTERCEPT  AP     =»,F12.3,«    (    IN  U*  COORD-)* 

C/*   KARMAN  COEFFICIENT  VK  =*,F12.3 

£/•   WAKE   STRENGTH  PI  =*,F12.J 

C/*   BOUNDARY  LAYER   THICKNESS         0+     =*tF12.3»*    (    IN  Y4  CCCRD.)* 
C/*   REFERENCE   FLCW   VELOCITY  VH4   =*,F12.3,*   (    IN  U+  CCCRD.)*/ 

£/4X,  'I*  ,8X,*Y-»*  ♦4X,*LN(Y-»)',8X,*U4*  ,  7  X  .  •  CU4  *  ,6X  ♦  *  WAKE  *  ,5X 
Cf *COL£S*t4Xt*FINLEY*/(I5,7Fl0.3)) 
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63     FCRMAT(/79(      •  >/ •   LAW   TYPE    I    :   LN(Y4)V*   USING*. I^i 
Cf'   POINTS   (    PER   =»tFe.2t*   I  OF   E. LAYER  )• 


STAKCARO    EKRCR   OF  ESTIMATE 

SE  = 

'  «E12. 

3 

2NC.-0K0ER  REGR.CCEFF, 

6(2)  = 

' tE12. 

3 

t/» 

VIRTUAL   CRI6IK  DISTANCE 

EPS  = 

'  f FI2. 

5t  • 

( 

IN 

METERS  )• 

VIRTUAL   ORIGIN  CISTANCE 

£P-»  = 

' .F  12. 

3,  • 

( 

IN 

Y* 

CCORO. 

)  • 

c/« 

INTEKCEP  T 

AP  = 

' tFl2. 

3,  • 

( 

IN 

U* 

CCORO. 

)  • 

C/' 

KARMAN  COEFFICIENT 

VK  = 

• »F12. 

3 

kAKE  STRENGTH 

PI  =< 

fF12. 

3 

t/' 

BCUNOARY   LAYER  THICKNESS 

D-»  =• 

»F12. 

3,  • 

{ 

IN 

Y4 

CCORD. 

)  • 

REFERENCE   FLCW  VELOCITY 

VM-*    =  " 

»F  12. 

3.' 

( 

IN 

U* 

CCORO. 

)  •  ) 

8<»     FORMAT(/'    VALUES   EEFCRE  CRIGIN   CORRECTION  FOR    THE  CASt   NUMBER  'tA^t 
£/•   LAW-CF-THE-WALL   COORDINATES   Y+  AND  U^V    (LAST   VALUE  • 
Ct 'CORRESPONCS    TC    THE   CEPTH    )  • /<» X  ,  •  I  *  »  1 3X  t  *  Y-t  •  , 6X  t  '  L N  (  Y+ )  •  ,  1  CX 
C.»U-»V(I5,FI5.3.2F12.3)) 

85  FORMAT(/»    ======>>    TC   CONTINUE,      ENTER  0  •) 

86  FORHAT(Il) 

87  FORMAT(/79(»-«)/»   LAW   TYPE   2    :   2X  -   T  ANHi=*- I  ( X  )  •  /  *   USING', U 
C   POINTS    (    PER   =«,Fe.2,'   X  OF   B. LAYER  )• 


m 

STANDARD   ERRCR   OF  ESTIMATE 

SE  = 

'  ,E12.3 

£/• 

2ND. -ORDER  REGR.COEFF. 

e(2)  = 

• ,tl2.3 

C/' 

VIRTUAL   ORIGIN  CISTANCE 

EPS  = 

' ,F12.5,« 

( 

IN 

METERS  )• 

c/' 

VIRTUAL   ORIGIN  CISTANCE 

EP  1  = 

' ,F12.3,  • 

( 

IN 

Y-» 

CCORO. 

)  • 

INTERCEPT 

AP  = 

' ,F12.3,  • 

( 

IN 

U-f 

CCORD  . 

)  • 

t/' 

KARMAN  COEFFICIENT 

VK      =  < 

•  ,F12.3 

C/' 

BCUNOARY   LAYER  THICKNESS 

C+  =< 

'  ♦FU.S,' 

( 

IN 

Y* 

CGCPO. 

)  • 

C/' 

REFERENCE   FLOW  VELOCITY 

VM-l  =' 

,F12-3,' 

( 

IN 

U* 

CCORD. 

)  •  ) 

88      FCRMATC    SUR  F  AC  E  •  »  3  F  1  2  .  3/ ) 

90  FORMATC/'    LAW    TYPE    1    :    VALUES   AFTER   ORIGIN  CORRECTION:' 
C/^XTM»,6X,'Y-»',5X,'LN(Y+)»,3X,»U-»'t5X,»Y+/D-»'t2X,'LN(Y/D)«,2X 
C,  'UM-LM  •t'iX,*WAKE»,2)(t'CCLES',2X,«FINLEY'/(I5,FlU.3,«F3.3)} 

91  FORMATC*    SURFACE    VALUES  HAS    KEEN   AOCEC    TO   Y-»,L+    LAw    AS    THE  POINT' 
Ct'    NUMBER', 15/ 

C    BOUNDARY    LAYER    THICKNESS  0+      =',F12.3t'    (    IN   Y4  COCRC.)'/ 

C    REFERENCE   FLOW   VELOCITY  VM-f    =',Fl2.Jf'    (    IN  U-t  COCRC.)') 

92  FORMATC/'    LAW   TYPE   2    :   VALUES   AFTER   ORIGIN  CORRECTION:' 
C/AX,'I',7X,'Y/C',9X,'X',4X,'FCT(X)',3X,'U+'/(I5,^FlC.3)) 

93  FORMATC    IF    YCU    LIKE    TC      RESTART    THE    ORIGIN   SEARCH,    ENTER    2  ') 
9<f      FORMATC    IF    YCU    LIKE    TC   CONTINUE    THE   ORIGIN   SEARCH,    ENTER    I  ' 

I  /•    (    LAST    M    =',I3,'    ;    MAX.NI    =',I3,'  )') 

95     FORMATC   OTHERWISE,      ENTER   0  •) 
END 


SU8R0UT INE   LIMITS (XI, X2,Yl,Y2,X,Y,M,N) 
—   FIND   PLOTTING  LIMITS 
DIMENSION  X(M),Y(M) 
Xl=l.D9 
X2=-1.D9 
Yl=1.09 
Y2=-1.09 
DO    I    1=1, N 

IF(X(I).LT«XI)X1  =  X(  I  ) 
IF(X( I).GT.X2  )X2  =  X(  I  ) 
IF(Y(I).LT.Y1)Y1=Y(I  ) 
I  IF(Y(I).GT.Y2)Y2=Y(I) 
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0X=.05e(X2-Xl) 
0Y=.05«(Y2-Y1) 

Xl  =  FLOAI(IFIX(  (Xl-i;X)«10.-l.  ) 

X2  =  FLGAT(  lFIX((Xi-»OX)f  10.-»  I.)  )«.  1 

Y1-FL0AT(IF IX<(Yl-CY)9  10.-l.  )  )«•! 

Y2  =  FL0AT(IFIX((Y240Y)«10.-H.) 

RETURN 

END 


SUBROUTINE  PLO(ItJ»K) 

DATA  NPL/999/ 
:::::  NEXT  LINE  NEECEC  FOR     HF-ISPP  VERSION 

CALL   PLCT(0, tC. ) 
:::::   NEXT  ELCCK  NEECEC  FOR     CALCCMP  VERSION 

GO   T0(IC«20f 30)  •  I 

—  OPEN   8-PEN  PLOTTER  (I=ltJ=l) 
10     60  T0(l«2t3}«v 

1  CALL  PLCTS(IEUFF,18000,6) 
CALL  PLIMT(l) 

CALL  PLCN 
CALL  PLCOPY(l) 
CALL  SWCHAR(l) 
CALL  PEK(N) 
RETURN 

—  CLOSE   8-PEN   PLOTTER  (1=1, J=2) 

2  CALL  PEN(O) 
CALL  PLCFF 
RETURN 

—  CHANGE   PEN  (1=1. J=2) 

3  CALL  PtN(O) 
CALL  PEN(N) 
RETURN 

—  OPEN   PLOT  ON   SCREEN  (1=2, J=l) 
20     GC  T0(6t7,6)tJ 

6  CALL  PLCTS(0,C,I) 
RETURN 

—  CLOSE   PLOT  ON   SCREEN  (1=2, J=2) 

7  CALL   PLCT(G.,C.  ,S«;9) 

8  RETURN 

—  OPEN   VERSATEC   PLOTTER        (1  =  3, J=l) 

30  GC   T0(3l,32,33 J ,J 

31  IF(NPL.NE.999)R£TLRN 
CALL  PL0TS(0,C,6) 
CALL  PL0T(0t0,-3) 
NPL=0 

RETURN 

—  CLOSE  VERSATEC  PLOTTER     { 1=3 , J= 2 , N= 999 ) 

32  IF(N.NE. 999)60  TC  33 
CALL  PLOT(0.,0.,999) 
RETURN 

—  NEXT   VERSATEC  PACE  (1=3, J=3)     OR  ( 1=3, J=2 ,N=0) 

33  CALL  PL0T(FL0AT(N),0.,-3) 

:::::   PREVIOUS     ELCCK  NEEDED  FOR     CALCCMP  VERSION 

RETURN 
END 
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c=== ================  =  =====================  ==============  =  ===  === ======  =  = 

SUBRCUT  INE  SC4LEl(T,PEtJP»NTC,ICfTA,TB»AT} 
C —   PLOTTING   AUXILIAR:    SCALE  T(I) 

C     .T    IS   THE   VECTOR   TO   SCALE   AND   SCALED  VALUES  ON  RETURN 

C  T(JP4l)  =  FIRST   VALUE    IN   THE   A  X  I  S  t  T  (  JP-f2  )  =  I NCREM  t  N  T   PER  INCH 

C      .PE    IS   THE   LENGTH  CF   PLCTTING    IN  INCHES 

C      .JP    IS   THE   NUMBER   CF   PCIMS,   NIC   IS   THE   DIMENSION  CF   T  (NTOJP-H) 

C      .OPTION    IO=l:    SCALE   T(JP)   BETWEEN  MIN(T)-TA  AND  MAX(T)+Td 

C  10  =  2:    SCALE   T(JP)   BETWEEN  fINd.TA)   AND  NAX(T,TB) 

C      -AT    IS   ADDED   TO   SCALED   VALUES    (TO  ACCOUNT   FOR   FRAME  POSIIICMNG) 

C  

DIMENSION  T(MO) 

DATA  AAtBB/l.E7,-l.E7/tCC/l.E-7/ 
C —   IDENTIFY  MIN(T)   AND  MAX(T) 
A  =  AA 

e  =  BB 

00    10  I=IfJP 
IF(T(I).GT.B)B=T(I) 

10  IF(T(I).LT.A)A=T(I) 
GO  TC(lltl2)«I0 

C —  OPTION  10=1 

11  E  =  B"»TB 
A=A-TA 
GC    TO  20 

C —  OPTION  IC=2 

12  A  =  AMIN1 (AfTA  ) 
B=AMAX1(E»TB) 

C —  SCALING... 

20      F=PE/AMAX1 (e-A,CC) 

DC   3C  I=I»JP 
30      T  (  I  )  =  (  T  (  I  )-A  )*F-»AT 
T( JP41  )  =  A 

T(JP-»2)  =  (B-A)/A»'AX1(PE»CC) 

RE  TURN 

END 

C  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  = ==  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  ==  =  =  =  ===  =  =  =  =  =  = 

SUERCUT  INE  HPLGT2(KT,KL,Ll»IItL2,I2fL3*I3fX3,Y3,A3,IPE.IPfX,Y,U.V 
C,MfN,XOtYOtAX,JX,KX,AY,JY,KYtIXtXKI,XMA,IY,YMI,YMA 
C,LT,IT,XS»YStL^tI^»VA,L5.I5,V5tL6»l6tV6tXb,YB*IC) 

C —    PLCTTING   A   GRAPH    KITH  HP-ISPP 

C     KT:WRITE   "N   PCIMSt    ( 0  =  SUB- T  I  T  L  E  "  ♦   l  =  VA'«f   2  =  VAtV5"t   3  =  V<»»  V5  »  Vfa"  ) 

C  =4t5»6   WRITE   L<itL5tL6  (CN  XStYS  AND   EELCh  POSITIONS) 

C        (>=0f    ALSO   WRITE   AS   2   CN   XEtYE   C  L6,   =-lf   DO  NGT.   =-2 t   A3  CN  XBtYE) 

C     KUrSWITCH   (0=SYMEOLS  ONLY(XtY),   2=CURV£    THROUGH   SYMBOLS  (X,Y) 

C  «    1  =  SYMECLS(  >  ,Y)    AND   CURVE(UtV)t   3  =  CURVE  (  X  .  Y  )  t      =  CUR  V  E  (U  t  V  )  ) 

C     L1(I1),L2(12):AXIS'   LABELS  I  L3(I3):TITLE 

C     X3tY3»A3: TITLE'S  ORIGIN   C  ANGLE        !    I  PE (  I  P  )  : PEN • S  ARRAY 

C      X(>')fY(M):CRIGINAL    DATA    ARRAYS  Z    N:    NUMBER   CF   POINTS    (    N   <   M- 1  ) 

C     U(M)tV(M):SECONCARY   DATA   ARRAYS   (OFTEN  CONTAINING  A  REGRESSICN) 

C      X0,Y0:AXIS*    ORIGIN  I    AX,AY:AXIS»  LENGTHS 

C      JXfJYiAXIS*    SWITCH   FOR    EXPONENTIAL  NOTATION  (1=YES«0=NC) 

C     KX,KY:SWITCH   FOR  DIGITS    ( -  1  =  IN TE GER t C  =  OEC . PO IN T , KK  =  0 I G I TS   PAST  D.P.) 

C      IXtXMI ,XMA,  lY,  YMI  tYMA:CPT  ICNS   AND   LIMITS   FOR   SCALEl  ROUTINE 

C     LT(IT):SUB-TITLEf   XSfYS:UPPER   LEFT   PCSITICN  FOR   SUB-TITLE   AND  LABELS 

C     LS(M),L5(I5)»L6(I6)   LAEELS   FOR   V'.,V5,V6   FOR   EACH  CURVE    (KU=  1  ONLY) 
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C     HUT:   LS(IA)tL5(I5)tL6(I6)   LABELS  FCR   V<i«V5  FOR  CHART    IDENTIFIER    (KT  =  0 
C     XEtYB:UPP£R   LEFT    PCSITICK   FCR  CHART    IDENTIFIERS   (WHEN   K T  =  0  )  L S . L5 t L 6 
C     IO:SWITCH   (=1   CPEN   AND   PLOT;   =Z   PLOT;   =3   PLOT   AND  CLOSE;    =C  ALL  ) 

C  

C:::::       NEXT         I       LINES  NEECEC  FOR  VS  FORTRAN  VERSION 

CHAR  ACT  ER*<i  Ll,L2tL3tL'.tL5»L6tLT,ISP,IMP 

DIMENSION  X(K),V(V)»U(P)»V(M),LI(Il)tL2(I2)fL3(I3)fIPe(IP),LA(I5) 
CtLT(IT),ISP(l)fl»'P(2),LK(l),L'i(I^)»L5(I5).L6(I6) 

DATA   KEY/0 /tLA/C,lf2,3fA»5,9Tl0tll»12fi'»t6f7,e, 13/ 
C,Hl,H2th3,HA/.07».lCt.l8,.20/,ISP/'  VtlMP/'    PCI't'NTS  •/ 

IF( IC.GT.l  )GC    IC  IC 

K=l 

KEY=  I 

10  IF(KEY.£G.O)R£TLRN 
LK( l)=LA(K) 

CALL   NEhPENC IPE(K)) 

CALL  SCALEl(XtAX«N*HfIXfXMItXHAtXC) 
CALL  SCALEl(YtAYf^f^'»IY♦YMI♦YfAtYC) 
CALL  PLCT(X(1),Y(1),3) 
IF(KU.GE.3)GC    TC  20 
IF(KT.£C.-UGO    IC  15 
YS-YS-h3 

CALL  SYKEOL(XStYS,hltLK»0.»-l) 

CALL   SYf'eOL(99<;.Ct<;'5<;.C,H2,  ISPtO.  »2) 

IF(KT.PC.^)CALL   SYMBOL  (999.«9S9.,h2,L<.tC.,^i=I4) 

IF(KT.£C.5)CALL    SYMeOL(999.,9  99.,h2»L5tO.,^=5I5) 

IF(KT.EC.6)CALL  SYMECL(999.,9S9.tF2tL6f0.tA*I6} 

IF(KT  .GE      )G0   TC  15 

PC=FLCAT (N) 

CALL  NUMBER (999. C»9  99.C,H2fPC»0., -I) 
CALL  SYM60L(999.C.999.C,H2,IfP,0.,8) 
IF(KT.GT.O)GC    TC  II 

CALL   SYMBOL (9  99. C  t 999. C  tH 2  t ISP tC. 1 2 ) 

CALL   SYMBOL (999.0*999.0 tH3tLT  tO. t^-IT ) 

CALL   SYMB0L(Xfc,Ye,H2tL<<*0.»'.*I^  ) 

CALL    NUMEER(999.C,999.0*H2f  v.  tO. , 2) 

CALL   SYMEOL(XE»YE-h3th2tL5»0. tA*I5) 

CALL    NUMBER (999.0, 999. C»H2,V5tC.t 2) 

CALL    SYMBOL  (XE,YE-H2-H3.H2»L6»0.,'.-I6) 

IF(KT.EC.-2)CALL    NUMeER( 999. 0,999. 0,h2,V6,G.»3) 

GO   TO  15 

11  CALL  SYMEOL(999.C,999.C,h2,LA,0.,^*I^) 
CALL   NUMeER(99  9.Cf999.0,h2, V^,0.,3) 
IF(KT.EC.l)GC   TC  15 

CALL   SYMeOL(9  99.C.999.C,H2,L5  ♦0.,'i5  15  ) 
CALL   NUMEeR(999.C.999.0,H2f V5,0. ,3) 
IF(KT.EC.2)GC   TC  15 

CALL   SYMBOL(99  9.0,999.0,H2tL6 ,0-,A*I6) 

CALL   NUMBER(999«Cf 999.0,H2» V6,0. f  2) 
15      IF(KU.LE.2)CALL   S YMEOL ( X (  1  ) ♦ Y ( 1 ) , H I , LK , 0 . . - I ) 
20     00   3C  I^^ltN 

IF(KU.6E.2)CALL   PL0T(X(I),Y(I ),2) 
30      IF(KU.LE.2)CALL   S YMECL ( X (  1) , Y ( I ) , h 1 » LK , 0 . 1 ) 

IF(KU.NE.1)G0   TC  50 

CALL  SCALEKUtAXtNf  MtlXtXMI  tXMAtXC) 
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CALL  SCALEKVf  AYtNtPt  IY,YMI  .YMAfYC) 

CALL  PLCT(U(ntV(l>t3J 

00  ^0  I^ltN 
^0     CALL  PL0T(U(U,V(I),2) 
50     K  =  K-»l 

IF(K.GT.IP)K=2 

IF(  IC.GT.l  }GC   TC  60 

CALL  SYf BOL(X3.Y3fHAtL3tA3,^*I3) 

CALL  NEWPENd) 

CALL   AXlS(XOfYC»Llt-<»*IltAX,    C  .  t  X  (  N+ I  )  ,  X  (      2  )  t  JX  ,  KX  ) 
CALL   AXIS(X0tYC.L2t        1 2 1 A Y , 90 . t Y ( N-H  )  , Y ( 2 ) t J Y , K Y  ) 
CALL  PLGT(X04;iXfYC»3) 
CALL   PLCT(X04AXf  Y0*/»Y,2) 
CALL  PLCT(X0tY0-»AYt2) 
60     IF(  I0.EC.1.0R.IC.EC..2)RETURN 
CALL  NEkPEK(O) 
C  CALL  PLCT(0,,0.tS99) 

KEY  =  0 
RETURN 
END 


SbtiROUT  INE   REC>FAC(KUSC«SI  1  tNVStGR  t  IFR,  WtbtCStNCI*  VFR  «FRC 
CtSKtCKthfYtVtCtStNDV.) 
C--        REGRESSIONS  FACILITY 

IMPLICIT   REAL*8  (»-H,G-ZJ 
COMMON  Kl5»KC3tIAP 

DIMENSION   VFR(NCI)»FSC(NDI)tY(NCI)»V(NOr  )tCS(    NCDtSC  NCI) 
Ct IFR(N0I ) tGR(NC  I  )  «B(    NO  I ) « C ( NC 1) * h ( KO I t NO  I } t SK ( NC I ) « CK ( NC  I  )  t h ( NO  I  ) 
Al  WRITE(KC3tl23) 
REAO(K I5f  105  )K 
IF(K.LE.O)R£TLRN 

IF(K.LE.2.ANC.KLSC.EC.l)G0    TO  <;6 
60    TC(81»52»e2te<i»65t86t'il)  tK 

81  SSI=SI1*SI1 
OC   91  I-ltNVS 
GR( I )=  IFR(  1) 

w(  n  =  e(  I  j-ssi 

91     CS( I )=(GR( I  )-32.  )*. 5555555555 

k.RITE(12»12'i)(ItGR(I)te(I)»CS(I)tk.(I)»I  =  l,NVS) 
WRITE(KC3f  l2A)(I,Gfi(  I).B(I)fCS{  I)tI=ltNVS) 

CALL  bSTR£G(6fNCIfCStW,NVSrRA,VFR,FRCtSK,CK,GR,htIPC»Y»V»SO,l»2) 

L=l 

M  =  2 

GO   TO  31 

82  WRITE(12,125)(I  ,C ( I ) ,S ( I ) t I  =  1 tNDW ) 
WRITE(KC3,  125H  I  t  C  (  I  )  ♦  S  (  I  J  »  I  =  1  .  NOW  ) 

CALL   BSTREG(6tNCI  tC  tStNCVitRAf  VFR,FRCtSK,QK,GR,H,IP0tY,V.SC,2t  1) 

L  =  2 
M=l 

60   TO  31 

83  L=I 
M=l 

99  kRITE(12«128)L«ftK0I 

taRITE(KC3tl2e)L«ftNCI 
95  WRIT£(KC3,129) 
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REA0(KI5tO)NP4 

IF(NPA.LT.3.CR.KFA.GT.NDI)6a   TO  95 

00   11    1=1, KPA 

hRITE(KC3»13C) 
II      REA0(KI5f« )W(  I  )f CS( I ) 

WRITE(12»126)(I,U(I),CS(I)fI=l,NPA) 

WRI TE(KC3. 126 ) ( I ,K( I ) f CS( I ) f 1= I ,NPA  ) 
13     WRITE(KC3, I  35  ) 

REAC(KI5» 105)K 

IF(K.6Q.0)GC   TC  15 

URITE(KC3«136) 

REAO(KIS«<=)lTls(l}tQS(i; 

WRITE(12,137)I*k(I)f ItCSCI) 

GO   TO  13 

15  CALL  ESTREG(6iNClti«tCS,NPA,RA,VFR»FRC,SK.0K,GK,h,IPCtY,V,Slj»LTM) 
21  V.RITE(KC3,132) 

REAO(KI5*I05)K 

IF(K.EC.O)GC   TC  I 

WRI  TE(KC3, 133) 

REAC(KI5»*)XX 

IF(L.£C.2.ANC.XX.LE.O. )6C   TO  31 

IF(L.£t.l)VAL=FREGl(XX,RA,FRU,NCItIPO) 

IF(L.£C.2)VAL  =  FR6Gl(CLCG(XX),RA»FPC;,NCIfIPO) 

IF(K.£C.2)VAL=CEXF(VAL) 

ViRITE(KL3,l3'i)X*,VAL 

ViRIT£(  12*13<i)XX,VAL 

GO   TO  31 

WRITE(KC3»IC6) 

READ(KI 5, 105 )K 

GO    TO  'fl 

L  =  2 

F=  1 

GC    TC  9S 
£5     L  =  l 
P  =  2 

GC   TC  9S 
86     L  =  2 
M  =  2 

GC   TC  99 
96      HRI T£(KC3t 127)K 
GO    TC  <»l 
105  FORMAT(Il) 

1C6     FCRMAT(/»    >>>>  ->  (    TO   CONTINUE,    £NT£R   0  )•) 

123     FORHAT(/'  OPTICKS:*/ 

t»                GO   SACK   TC  PAIN  MENU  :  OV 

£•                VISC=FUNC(T£HP. CELSIUS)  :  !•/ 

£•                F=FUNC(LK(R/F ) )   LAW  FOR   SMOOTH  WALLS  :  2V 

£•                Y=FUNC(X)  LAW   TO   TYPE   ON    TERMINAL      :  3V 

£•                Y  =  FUNC(LN(X)  )       LAW   TO   TYPE   ON   TERMINAL  : 
£•        LN(Y)=FUNC(X)  LAW   TC   TYPE   ON   TERMINAL      :  5V 

£•        LN(Y)=FUNC(LN(X) )       LAW   TC   TYPE   ON   TERMINAL      :  6V 
£•   ENTER  YOUR  CPIION  Il») 

12^      FORMAT(//«   KINEMATIC  VISCOSITY   ( SC .ME T . /SEC  .  ,   LN-SCALE)*/*    AS  A* 
£,•    FUNCTION  OF   TEMPERATURE    (C  EL  S  I  US  )  • /<•  X  ,  •  I  •  ,  2  (  7  X  ,  •  T  EHP  .  • 
£,•        KIN.VISC*  )/aX,»FARENHEI  T        SO. FT/SEC  CELSIUS  • 
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Ct  •SC.MT/S6CV(15t2(Fl2.3.El2«3)  )) 

125  FCRMAT(//»    St*CCU— WALL    FRICTICN   CC6FFICIENT    FPV    AS   A  FUKCTICN* 

OF  REY/FR   RAIIO    (LN-SCAL£)V    •  I      REYN./FRICT.  FR.COEFF.' 

C/(  I5»E12.3,F 12.2 ) ) 

126  F0RMAT(//2('iX,  •  1  •  ,  1  IX,  'X*  ♦  I  IX  ,«Y    I  •  )  /  (  2  (  I  5  t  2  E  1 2  .  5  f  '  !•))) 

127  FORMAT(/«   AFTER   CKE   CF   MAIN   3   TC   5  OPTIONS   HAS   BEEN  USECV 
C»    THIS   SUb-OPT ICK* t 12 , •    CANNC  I    BE   USEC   <<  =  =  =  =  =•//) 

128  FORMAT(/'    1)    REGBESSICN   ANALYSIS   WITH    S  C  ALE  S  :  •  /  I  5  ♦  •    FOR  XVI5 

FOR   YV*    (    1  =  KATURAL    SCALEt    2  =  LOG  AR 1 THM I C   SCALE    )V'    FCR   UP  • 
C*    TC'.l^f'    CATA-PAIRS  X,Y') 

129  FCRMAK*    TC   EE    TYPEC  CN   TERPINALV/*    ENTER  NUM3ER  OF   PAIRS  :•) 

130  FORMATC    ENTER    A   CATA-FAIR    XfY  :•) 

132  FORMAT(/»    IF   YOL  LIKE    TO  GET   A   REGKESSICN  VALUE*    ENTER  1« 
C  /•    IF  NOTt     ENTER  0  :  •  ) 

133  FORMATC    ENTER   "X"  VALUE  :•) 

13't     FORMATC    FOR   X   =«,F15.5,'    ♦      Y  =*,F20.9) 

135  FCRMAT(/»    IF   YCL  LIKE    TC  CHANGE   SCME   CATA,    ENTER  1* 
C  /•    IF   NOT,     ENTER  0  :  •  ) 

136  FORMAT(»   ENTER   "1"   , " X (  1) " , " Y ( I  ) "  VALUES  

137  FCR^'AT(/•    REPLACEMENT   CONE:    X  (  •  ,  I  3  ,  •  )  =  '  t  F  1  5  .  5  »  •    ,    Y(»,I2t')  =  * 
£.FI5.5) 

END 


SUBRCUT  INE   S  T  A  T  I  I  (  NC  I  ,  A  ,  C  ,  NNN  ,  I  P ^  ,  I  ^U^' t  C VOL  t  A'CL  ,  V FR  ,  FRU  , C  L  I  ,CL2 
CtXtSt IFR ) 

C=====>>    STATISTICS    (CCMPUTE   MEAN,    STANCARO   DEVIATION   AND  FKECUENCIcS) 

IMPLICIT   kEAL-8  (A-H,C-Z) 
C:::::       NEXT         1       LINES  NEECEC  FOR   VS  FORTRAN  VERSICN 

CHARACTER*'!  IFR,A 

COMMON   KI5,KC3,  lAP 

CI  MENS  I  CN    IFR(NCI),VF.<(NCr),FRC(NCI  )  ,  A  (  20  )  ,  VCL  T  (3  ) 
C —    THE    PROGRAM   HAC    tiEEN    I^'PLEM5NTEC    FCR   CNE    CHANNEL  CNLY 
IF(  INUM.NE.  1  )RETLRN 
READ(2,1C7)A 
X  =  0. 
XX  =  0. 

f  CL=  1+ (CL2-CL1-»C  .COCl  )/CVCL 
DC   a    1=1, MCL 
VFR(  n=CLl*CVCL«I-CVCL 
8      FRCi(I)  =  0. 
12  CONTINUE 
I^=-IP^ 
DC   19   1  =  1, A 
I<»  =  I<i+IP<i 

IF(NNN.LT.  IP*.  )  IP^  =  NNN 

REA0(2,  lOSXVCLT  (J),J  =  1,IPA} 

DC    17  J=l,IP<i 

X=X+VOLT(J) 

XX=XX+VOLT ( J)*VCLT ( J) 

JCL  =  (VCLT(  J)-CL  l  +  COOCD/OVCL-H 

FRC(  JCL)  =  FRG(JCL)-H. 
17  CONTINUE 

NNN=NNN-IP^ 

IF(NNN.LE.O)GC  IC  2C 
19  CONTINUE 
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GC  TO  12 
20     DO  22   1  =  1. MCL 
22  FRC(I)=FRO(I)/C 

X  =  X/C 

S  =  CSCRT(C4BS(XX-X«=X«C)/(C-l.)) 
WfiITE(12f  106)v:«XtS 
WRITE(KC3f  106)C«X«S 
WRITE(KC3tl IC) 
READ(Kl5f I 12)K 
FK  =  C. 

CO   32  I=lfMCL 
32      IF(FRQ(  I).GT.FK)Ff.  =  FRC(I) 
GH=5C./FM 
HM=C/GM 

hRITE(12tlll)»*CL»FP,hH 
WRI  IE(KC3t  I  I  I  )MCL.FK,Hf 
SL'M  =  C. 

DC  <iC   1  =  1. MCL 
IN=FRG( I)*GK 
SUM=SUM-»FRC(  I  ) 
IFdN.EC.OGC   IC  36 
DO   35  J=l.IN 

35  IFR(J>=»:* 

36  INl=IN-»l 

IF(  IM.GE.SOGC   TC  38 
DO  37  J=INl.^S 

37  IFR(J)=*  • 
IFR ( 50  )  =  • :  • 

36      i<RITEll2.113)I»VFR(I),FRC(I).(IFR(J), 0  =  1.50) 
<.C  WRITE(KC3,113)I,VFR(IJ,FP.C(I),(lFR(J),J=lt5C) 

V.RI  TE(  12,  1  I'l  )SU^ 

WRITE(KC3.ll'.)SLJ' 

RETURN 
C —  FORMATS: 

106      FORMAT( /F9.C.  •-SA^'PLES   MEAN:  XM='.F10.2 

C  /•    SAMPLE    STAKCARD   CEVIATICN:  SM=«.F1C.3/) 

1C7      FORMAT  (20A<i  ) 
108  F0RMAT(22F8.3) 
1C9  FCRMAT(eF9.3) 

lie      FQRfATi/*    TC   CGKTINLE.    PRESS      <   RETLRN   >      KEY  •) 

111  FGRMAT(/»    ThE'.lA,'    FREQUENCIES  CETAINED  :•/ 

C/'    SUM        VALUE  FREC  GRAPH    (    FROM   0-0  TC«.F5.2 

£.•    )V30X.«    (   SCALE   IS  I    =',Fe.l.'    SAMPLES  )•/) 

112  FORMAT(Il) 

113  FORMAK I^ fFe.3.FlC.5.*  I'.SCAl) 
ll<i      FORMAK  15X.7(*  =  »  )/8X,  •    SUM  ='.F8.5) 

END 

C  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  ^=  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  =  ==  =  = 

SUBROUTINE    S T A T I  2 ( KC I . MC L . VFR , F RC . SK . CK ,D t D V , FHE . FMC ) 

C=====>>   STATISTICS    (   COMPUTE   SKEwNNESS  AND   KUKTOSIS  ) 
IMPLICIT  KEAL*8(A-H,C-Z) 
COMMON  KI5.KC3fIAP 

DIMEKSION   A(5).VMC('i)»VFR(hCI  ),FRQ(NCI) 
DATA  VMX/9999S.SS90C/ 
C—  INITIALIZATION 
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CO  2   1  =  ^*1 

VM0(  n=o. 

FI  =  .0 


r» 

1 

r 

L 

L 


S1=C.  r 

IE  =  0  I 
C —  LCOP  CN  SAMPLES  • 
OC    IC   1=1. KCL 
IF(  lE.Et.  I  )GC  TC 

C —   KEOIAN  ' 
S0=S1  ^ 
Sl  =  Sl  +  FPC(  I  ) 
IF(S1.LI..5)GC   IC  A 

IF(Sl.NE.S0)FH6=VFR( I-l)+( .5-SC)*(VFR(I )-VFR( I-l ) )/ (Sl-SO) 

IF(Sl.£C.SO)FPe=VFR( I )  * 
IE  =  1 

A(l)=FRC(I)  i 
C—  MCOE 

IF(FRC(I) .LT.FI )GC    TC  5 

FI=FRQ( I ) 

IK=I 

C —   HCMEMS   ABOUT    ThE   CRIGIN  ^ 
5     CC   10  J=2.5 

A(J)=A(  j-n5VF«  (  I  > 
10      Vf.G(  J-l  )=VMC(  J-1  ;-»A(  J  J 

FMO=VFR(IW)  L 
H  =  C*0 

C--   HCHEKTS    AdOUT    THE  ^EA^ 

X=VHC(1)-C  ! 

S=VHC(2J-H  L 

T  =  VA^C(  3  )-3  .-C-V^C  (  2  )-»  2  .-H-C 

F  =  VMG(^)-i.-C-VfC(3)-»(6.=.-V»'0(2)-3.-h)*h 
C —    ShEPPARD'S  CCRR;:CTICNS 

V=DV*OV  » 

SC  =  S-V/  12  . 

IF(SC.LE.O.  )SC  =  S 

IF(SC.L£.0)GC    IC  25 

C —    SKEkNNESS   AND    KUKTCSIS  *^ 
TS=T/SC 
FS=FC/SC 

FC  =  F-(S*.3-.C2>i  lte7«V)=?V  > 
ei=TS^TS/SC  ^ 
B2=FS/SC 

61  =  0SQRT(DAeS(e  I  J ) 

62=B2-3.  L 

SK  =  .5*DAES(G10(e24  3.  )/(5.*B2-t-*Bl-9. ) ) 

IF(Ff'E-0)26,22,2^ 
22      IF(FM0-D)26»26 .2^ 
2<»  SK=-SK 
26  CK=G2 

XM=VH0(1) 
35     S0  =  CSGRT(0A3S  (SO  ) 
C —   PRINT  RESULTS 

IF(OABS(SK)  .GT  .V>'X  )SK  =  VMX 

IF(OABS(QK  ).GT. VP X)CK  =  VMX 

MRI  TE(K03*  101  }X»'«SOtFPE«FHOf  SK«CK 


L 
L 

1 
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HRITE(KC3tlC2)(VMC(n.I=l»^)»X,StSCtT.F,FC»eite2fGl«G2 
l.RITE(l2,10l)XK,SC,FyE,FM0,SK,CK 

WRnE(12,l02)(VFC(I).I  =  lf<i)fX,S,SC,7,F,FC,dl,d2,Gl,G2 
RETURN 
C —  FORMATS: 

101  FORMAK/'    VALUES   FOLNC   THROUGH   THE   CURVE  OF   FRECUENC lES : • 
£/•  MEAN         ='tF10.3/'    STANDARD  DEVIATION  =«,F1C.3 
C/»                        MECIAN       =»,F10.2/«  fCDE  =*,FIC.3 
C/'                      SKEWNESS     =*tFlC.2/»                      KLRTOSIS  =»tFlC.3) 

102  FCRMATC/'   MOMENTS   ABCUT    THE   ORIGIN   AT  ZERO:'/ 
£16X,»FIRST        =•  fFI2.6/16X, 'SECCNC  =«fFl2.6/ 
£I6Xf»ThIR0  fFl2.t/16X» 'FCliRTH  =',F12.6/ 

C  •    MOMENTS   AECUT   THE   MEAN    (ANC   SHEPARO  CCRRECTICNS)  :'/ 

CI6X,»FIRST  =•  tF 12.6/ 16X SECOND  =«tFl2-6» 
ClCXf'CORR6CT.  =  *tF12.6/i6X,MHIRC  =»,F12.6/ 
£16X, 'FOURTH  =•  tf  12.6, ICX, 'CCRRECT.^'  tFl2.6/ 
C  •    COEFFICIENT    BETA    AND  GAMMA:'/ 

C16Xt'BETA   1     =',F12.6f ICXt'EETA   2  ='»F12.6/ 
C16X»'GAMMA    I    =  '  t F  I  2 . fc t 1  OX ♦ ' GAMMA    2  ='«FI2.6) 
END 


SUERCUTINE  ESTREG(NMX,NCI,Y,StN»A,B»Ct£»F,GtF,IP0tZ.L,SCtILlfIL2) 

0  ,       FOR    THE   CETENTICN   CF    A    L-6ST  REGRESSION 

IMPLICIT   K£AL*e  (A-h»C-Z) 

DIMENSION   U(NCI)fS(NCI  )tE(NCI  )Tr(NOI)  tY(NDI  )fZ(NOI) 
Cte(NCI}tC(NCI)tG(NCI}tH(NDItNCI) 
C~   CPTICNAL   CHANGES    IN  SCALES 
NHAX=MINO  (N-2  tNMX  ) 
SC=  1  .Dl  C 
IFO  =  C 

GO    TC( 1 e»22  ),  IL  I 
le      CO   21  J=I»N 

21  Z(J)=Y(J) 
GO   TO  25 

22  CO   Z'i  J=l»N 

2^      Z ( J)=OLOG( Y( J  )  ) 

25  GO   TC(26»28)  t  IL2 

26  DO   27  J=1»N 

27  U(J)=S(J) 
GO   TO  31 

28  DC   3C  J=ltN 

30  U( J)=DLOG(S( J)  ) 

C —   GET   REGRESSIONS   ANC   SELECT   THE    2EST   ONE    (   SMALLEST   SD  ) 

31  WRITE{12t<i2) 

<i2      FORMAT(/'   2)   CBTcMICN  OF   BEST  REGRESSION'/) 
DO   51  I=1,NMAX 

SD£=REGRcl(N»Z»U»ItALtefN0ItNCIfNCI»NDIfE»FtGtH»0tl.C-l2) 

IF(SCE.EQ.0.)WRITE(l2«t8)I 

IF(SCE.GT.C.)V,RITE(12t^7)I,SCE 
^7      FORMAT(  I5t '-ORDER   REGRESSION:  SC='»FI5.7) 
*i8      FORMAT(  I5f '-ORUER   REGRESSION:  N   C    T  F   0   U   N  C) 

IFCSCE.GE.SC.CR.SCF.LE.O.CI )bO   TC  51 

DC   'i9  J=l,I 

C(J)=B(J) 

A=AL 
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sc=soe 

IPC=I 
51  CONTINUfc 

IF(  IPO.EC.OGC   TC  60 
53  WRITE(12t56)K,IFCtA,(C(K),K=l,IP0) 

RETURN 

56     FCRHAK/'    FOR'tlSt'    PCINTSt    EEST   REGRESSION   fCUNC    13  CF  CROEK'tlS 
£/•    INTERCEPTICN  CCEFFICIENT    :        A  =«tFl3.7/ 
£'    REGRESSION  COEFFICIENTS      :        E   = • t 3 E  1 5 . 7 / ( 3 3X 1 3 E  I  5  .  7  )  ) 

60      V.R  I  TE  (  12*66  ) 

66      FCRMAT(/»    NO   REGRESSION   WAS   FOUND  •/) 
RETURN 
ENC 

C========= ================================== =============^===== ========= 

FUNCTION    FREGl  (X»A,etK.N) 
C         COKPUTE    THE    ^EGRESSICN   VALUE   FROM   THE    »<EGRESSION  POLY^O^^lAL 
C  B=  REGRESSION  COEFICIENTS      •      f=   E  DIMENSION 

C  N=  POLYNOMIAL  ORCER  *  FREG1=  REGRESSION  VALUE  (RETURN) 
C  

REAL*8  XtA,8tFREGltF 

CIHENSION  tilH) 

IF(N.£C.I)GC   TO  2. 

K  =  N-  I 

f^  =  B{N) 

DO    1  I=ltK 

J  =  N-I 

1  F=X-F*e(J} 
FREG1=F-X+A 
RE  TURN 

2  FREGl=A-»e(l)*X 
RETURN 

END 

C============^===========^=========r==================================== 

FUNCTION  REGREl(M»X,'»,N,ATB,M»N2tN2,N't*SX,SYX,CYX,C,KV*,EPS) 
C  NTh-CRCER    PCLVNCMAL    REGPF3SI0N   CN   M   DATA   POINTS    IN    X,Y  ARRAYS 


C —    ARG:    ^^=   NUKEER    CF    CATA  POINTS 

C  N=    PCLY^C^'IAL  CRCER 

C  A=   REGRESSION    INTERCEPT  CCirr. 

C  SX=    SUMS   CF    XY  VALUES 

C  SYX=    SUFS   OF    XI*Y  VALUES 

C  C=    AUGf'ENTEC    fATRIX   OF  COfcFF. 

C  tPS=    TOLERANCE   FCR   SIHUL  ROUT. 


X=   EASE  POINTS 

Y=    FULIC^'IAL    VALUES    AT  X 

S=   REGRESSICN  COEFFICIENTS 

CYX=   VECTCR   OF    "INECP."  TERNS 

KW=   PRINTER   DEVICE  (IF=/0) 
Nl,N2*N3*N<i=   ARRAY  CI^ENSIGNS 


C       REGREl   RETURNS   STANCARC   ERROR  OF   ESTIMATE   S      (=   0.    IF   EPS   NCT  SAT'C) 

C  

IMPLICIT  REAL*6(A-H,C-Z) 

DIMENSION  C(M*M)t£X(N2),SYX(N3)tCYX(N3J,X(N<i),Y(NA),B(N2) 
CATA  IK/0/*K3/12/ 
C —   CHECK  DIMENSICNS 

IF(Kh.NE.0)K3=Kk 

IK=IK-H 

REGRE1=C. 

IF(Nl.GT.N.AN0.K2.GE.N-fN.AND.N3.GE.K-AN0.N^  .GE  .M.ANC.M.GT  .NJGCTQ  9 
WRITE  (K3  »2GA  )  IK  *M,NtMfN2,N3.N<i 

RETURN 

C —   COMPUTE   SUMS   OF   POWERS  AhD  PRODUCTS 
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9  NTW=N*N 
NPl=K+l 
SY  =  0. 
SYY=0. 
CO   1  I=lfN 
NPI=N4  I 
SX(  I  )  =  0, 
SX(NPI)=0. 

1  SYX(I)=C. 
DC   3  I=l»M 
SY=SY+Y( I ) 

SYY  =  SYY-»Y(  I  )*Y(  1  ) 
OUP.=  1. 
DC   2  J=ltN 
DUM=DLMCX( I ) 
SX( J)=SX< J)4CUM 

2  SYX(J)=SYX(J)4Y(1)-CU^ 
CC   3  J=NPlfN7W 
CUM=OUP*X( I ) 

3  SX(J)  =  SX(  J)-»CUM 

C —  CCMPUTE   CCEFFICIfcMS  C(ItJ) 
FH  =  H 

CYY=SY Y-SY^SY/F^ 
lie  ^   1  =  1  f  N 

CYX(  I  )  =  SYX(  I  )-SY?SX( I )/FM 
C(IfNPl)=CYX(I) 
CO   h  J=liN 
IPJ=  I  +  J 

C(  I  «  J)  =  SX(  I  F  J)- <X{  I  )*SX(  J)/FM 
IF(N.EC.l  )GC    TC  fc 
C —   CALL    CN    SIMUL    TC   SCLVE    S  I  ^LL  T /S  K  t  C  L  S    l«.LA1ICNS    (IF   N>1  ) 
CET=   SI^UL  (N  f  C  t  E  tEPS  .  1  »M  tN3  ) 
IF(KV<.GT.0)hRITt(KWt2CG)CET 
IF(DET.NE.O.  )GC   TC  6 
RFGRE1=C. 
RETURN 

C —   CCHPUTE    INTERCEPT    A   ANC    STANCARC    ERROR  S 

6  CUM-SY 
TEf.  =  CYY 

iF(N.EC.i;£(i;=L(it2)/c(i»n 

CC   7    1=1, N 

DUM  =  DU^'-E(  I)*SX  (  1  ) 

7  TEM=TEM-B(  I  )-CYX{I  ) 
A=DUK/FM 

DEN  =  FLCAT (M-N-I  ) 

IF(CEN.EG.O.  )RE1LRK 

S  =  DSCRT(DAES(TE^  )/CEN) 

IF(TEM.LT.O.)hRIIE(K3»205)lK,IEH 

REGRE1=S 

IF(KV(.GT.C}WRITE(Kkt2C2)A«StNt(e(I}«I  =  ltN) 
RETURN 
C —  FORMATS 

200     FCRHAT(/»    FRCH   R  EGRE  1  (  S  IMUL  )  :   C  E  T  =  •  ♦  I  P  E  1 2  .  A  ♦  •    <  =  =  =  

202     F0RMAT(/5(*='),*   POLYNOMIAL   REGRESSION  ANALYSIS  BY   REGREI  ROUTINE* 
t»»    •f30(»  =  M/*    INTERCEPT   COEFF.    A  =  «,F12-5t»    t   STANDARD   ERROR  • 


A-29 


C,    •S=»tFl2.5/»    THfc'tI3t*   REGRESSICN  COEFFICIENTS  ARE  :  •  /  (  I E 1 5.  7  )  )i 
iOU     FORMAK/'    WARNING:   ON    TH£',I5t'   CALL   ON   TO   RtGRElt    SOME   CF    THE  • 

C/'VALUES   M,Nf  M  »N2,N3,N^  =  «  »6I  5t  •    WERE    FOUND  INCORKECIV) 
205     FORMAT(/*    WARNING:    CN   THE'»I5/«   CALL  CN   70  REGREl,   STANCARD  OEVIA* 

£,«TICN    IS   MISTAKENLY  COMPUTED*/'   CAUSE   T EM=  •  t c 1 2 . 3/ ) 
END 

C====== ===================================================== ======^===== 

FUNCTION  SIMUL(NtA,X,EPSt INDtNRAtNRX) 
C  GAUSS-JORDAN   REOLC'N    t    INVERSE   MATRIX   USING   KAXifUM    PIVOT  STRATfcGY 


A=   MATRIX   OF    CCEFr'S  (N*N) 
EPS=    MAXIMUM   ALLOWEC  PIVOT 
IND=   SWITCH  ACC.    TO  : 


C —  ARG:  N=  NUMBER  CF  UNKNOWNS 
C  X=  VECTOR  CF  UNKNOWNS 
C  NRA,NRX=OIMENSICNS  CF  A  ANU  X 
C  IF  INO=  0,  VECT.  CF  CCEFF'S  IN  COL.  N-f  I  OF  A  (INVERSE  RETURNED  IN  A  )l 
C  IF  INC>  Q»  SAME  EXCEPT  INVERSE  IS  NOT  COMPUTEC  j 
C  SIMUL  ALWAYS  RETURNS  DETERMINANT  CF  A  (N*N)  (=  0.  IF  EPS  NCI  SAT'D)  ' 
C  

IMPLICIT  REAL*d(A-H,C-Z) 

REAL*8  SIMUL 

EIMENSICN   IRC(^C)tJCC(^0)t JOK(^G) fY(AC J  t A ( NRA «NR A } « X (NR X } 
C~  INITIALIZATION 
MAX  =  N 

IF( IND.G£.0)MAX=N41 

IF(N.LE.'»C.ANC.N.LT.NRA.ANC.N.LE.NRX)bC    TO  5 

WR'lTE(12t200)NtNRA,NRX 

SIMUL=C. 

RETURN 
C--   BEGIN  ELIMINATION 
5  CET=l. 

CO    18  K=1,N 

KM1=K-1 
C--    SEARCH   FOR  PIVOT 

P  IV  =  C. 

CC    11    I =1 .N 

CO    11  J=lfN 

C —    SCAN    IRQ    C    JCO   ARRAYS    FCR    INVALIC    PIVCT  SUdSCRIPTS 
IF(K.£C.1)GC    TC  9 
CC   fl  ISC=1.KM1 
CC   d  JSC=ltKMl 
IF(I.EO.IR0(ISC))GC   TO  11 
IF< J.EC.JCC( JSC  )  )GC    TC  11 

8  CONTINUE 

9  IF(CABS(A(I,J)).LE.CAeS(PIV))GC    TC  11 
PIV=A( 1 T J) 

IRC(K)= I 

JCO(K)=J 
11  CONTINUE 
C —  CHECK  PIVOT 

IF(CABS(PI V) .GT .£PS)GC   TO  13 

SIMUL=C. 

RETURN 
C —   UPDATE  DETERMINANT 
13  IRK=IRO(K) 

JCK=JCO(K) 

CET=OtT*PIV 
C —  NORMALIZE   PIVOT   RCW  ELEMENTS 
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DC    IS  J=l,KAX 

A(IRK,J)=A( IRK, J)/PIV 
Q —   CARRY   OUT    ELIMINAIICN   ANC   LcVELGP  INVERSE 

A(  IRK, JCK)  =  1 ./Fl V 

DC    18    1=1, N 

A  IJ  =  A( I  ,  JCK  ) 

IF(I.£C.IkK)GC    TC  18 

A(I,JCK)=-AIJ/PIV 

DO    17  J=l,MAX 
17      IF(J.SE.JCK)A(I,J)=A(I ,J)-AIJ*A(IRK,J) 
le  CONTINUE 
C —   ORDER   SOLUTION   VALUES   (IF  ANY) 

CO  20   1=1, N 

IRI=IRO(I) 

JCI  =  JCC( I  ) 

JOR( IRI )=JCI 
20  IF(INO.GE.O)X(JCI)=A(IRr,MAX) 
C —   SIGN  CF  CETERW'T 

INT  =  0 

NHl=N-I 

CO  22   1  =  1, NMl 

IPI=I41 

QC   2  2   J=IPl  ,N 

IF(JCR( J).G£.JCR(I) )GG    TO  22 
JTE=JCR( j; 
JGR( J)=JGR(  I  ) 
JOR(  I  )  =  JT£ 
INT  =  INT-H 
22  CONTINUE 

IF(INT/2=>2.N£.INT)CET  =  -0ET 
C —    IF    INO   >   C   RETURN    «ITt-  RESULTS 
IF(  INC.LE.OGC    TC  2t 
S  IMUL=C£  T 
RETURN 

C —    IF    IND   =<    C   L^SCRA^eLE    THE  INVERSE 

26  DC   28  J=l.N 
CO   27    1  =  1  ,N 
IRI  =  IRC(  I  ) 
JCI=JCC(I) 

27  Y(JCI)=A( IRI  ,J) 
CO   28  I=l,N 

28  A(I,J)=Y(I) 
DO   30  I=ltN 
DO  29  J=1,N 
IRJ=  IRO( J) 
JCJ  =  JCC( J  ) 

2S     Y(IRJ)=A<I , JCJ) 

OC  30  J=1,N 
30  A(I,J)-Y(J) 
C —   RETURN  FOR    INC   =<  C 

SIMUL=OET 

RETURN 

200     FORMAT(/»    SIMUL   CANNOT  OPERATE  CAUSE   N = • , I  3 , • >90. OR . K>NR A  =  •  ,  I  3 
C, • .CR.N>=NRX=  •  ,  13/) 
END 
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C==== ===================================================== rr=r= 

SUBRQUT1N&  GAUSSKGAtWGtNUfNUW; 
C        G4USSIAN   ABSCISSES   ANC    WfclGTHS    (    FRCM   KUk»=    1      IC     NUH=    10  ) 

IMPLICIT   RE/L*e  (A-h,0-2) 

0IM6NSICN   GA(NU)  ,WG(NU) ,A( 5 ,9 ) ,C { 5  f S ) 
C —    ARSCISAE   VALUES  MAIRIX 

DATA  A/.57735C2tSl,A«0. 

C  ,.86il2t3115, .339981  OA  35, 3-''0. 

e  SC61  798A59 5 38^69310  I ,3-0 . 

•  C  ,.932At95l<i2,-661209386A, .23861918  50, 0.,C. 

C  ,.9A91C79  123, .7*11531  1855  t.A058A515l3,0.,C. 

C  ♦  .96U2e9  856<.      7  96666A7  7A  ,  .  5  2  5  5  3  2  <i099  ,  .  1 E  3A  3A6  A  2A  ,  0  . 

e  ,.96816C2395, .8  360311073  ,. 61337  1A327,.  3  2A25  3A23'i,0. 

C  ,  .973906528  5,  .8  65063  36  60  ,.6  7  9<i095662,  .A3  3395  39A1,  .  I A  88  7^33  89/ 

C —   CCEFFICIEMS   VALUES  MATRIX 
DATA  C/2.»A*C. 
C  ,.5555555556, .8888888889, 3*0. 

£  ,.3A  785AeA51,.652lA5l5A8,3-?0. 

C  ,. 2369268850,. A7e62 86 7 OA,. 56888888 89, 0.,C. 

E  ,.17132AA923,.36C7615730,.Ae79139A35,0.,C. 
C  ,.129AeA96tl,.27970539lA,. 3818300505, .A179591836,0. 

,.lC12?e53t;,.222381C3AA,. 3  l37Cfc6A56, .3626637833,0. 
€'  ,.C8127A3ee3,.ieC6A8l6  06,.2eC61C696A,.3123A7077C,.33C2  39355C. 

C  ,.C666713AA3,.1A9A513A91  , .2190863625,. 2 192 66 7193, .29552A22A7/ 


CHECK  CONSISTENCY 

IFCNUS.GT.NU.CR.NLW.LT.l.CR.NL.LT.l.OR. 

NU.GT.IOSTCP 

CARRY   CUT  PRCCECLHE 

IF ( NUh  .CT  .  1  )GC    K  2 

GA(  I  )=0. 

WG(  1  )  =  2  . 

RETURN 

2 

N  =  NUW-  1 

K=NUW/2 

CO   A    1  =  1, K 

J  =  NUW-  I-H 

GA(  I  )=-A(  I  ,N) 

GA(  J)  =  -»A(  I  ,N) 

WG( I  )  =  C( I,N) 

A 

WG( J )  =  WG(  I  ) 

IF   CROER   EVEN,  RETURN 

GC  TC(8,8,5,8,5,8,5,e,5,8),NUK 

IF   CROER   CCCf   CCMPUTE   fICCLE  POINT 

5 

GA(K+ 1 )=0. 

WG(K4l)=C(K-»l,N) 

8 

RETURN 

END 

SUERCUTINE  ANLCGC(A,CSAMP,NNO,IPAC,INUM 

,HINU,NSEC,CL 1 ,CL2 ) 

::        THIS   SUBRCUTINE  NEEDED 

FOR    VS   FORIRAN  VERSION 

REPLACE   FOR   SAfE   RCUTINE    IN  FILE  "ANLLGO 

FORTRAN  A"   WRITTEN  FOR 

POCCCM   FORTRAN    IV  VERSION 

CHARACTER*A  A 

COHMCN  KI5fKC3tlAF 
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DIMENSION  A(2C> 

QSAMP=0 

RETURN 

END 


C ============================================================ ========== 

SUnRUUriNE   ANLaGO(A,aSAHPf  NNO,IP<fOf  INUM»MlNU,NSECtCLl,CL<d) 
C=====>>  HOR    THE    INPUT   QF   RANDOM   ANALOG  SIGNALS 

C  PROGRAMMED   OY   ??   AT   USDA   SEDIMENTATION  LAEUTRATORY 

C  MODIFIED   BY  ADEFF  '   >  LAST  UPDATING:    AUG/10/U6  <  

C  

REAL*B   AtUSAMPtCL 1 f CL2 

DIMENSION  TIME(2)tA(20)fVOLT{32) 

DIMENSION  ITABL(I3) 

INTEGER^'f  MTCMOO 

INTEGER=>2    I  TA BLE  (  1 6  )  »  1  VOL  T  (  25  6 )  , UF TOU  T  (  10  )  ,  UF  T  T  T  Y  (  I  0  ) 
'INTEGEK*2    I  I  ,  J J J  ,  I  X X  ,  I  EOF 1 1 C t  IP f I Q T , LP 
INTEGER*2  IVALU(16) 

INTEGER  •>2   NAHECA  )»STATUS»  INUMXtFFF 
EQUIVALENCE    (  I  T ABL ( 6 ) » I  TABLE ) 
DATA  ITABLE/16*0/tITAHL/l3-0/ 
DATA  NAM£/"MO"f "Dl"tZ00^O»O/ 

DATA  UFTOUT/OtZAFOOt  ZAOOOtOtOtOtZ'.OOOfOtO.O/ 

DATA  UFTTTY/O,ZC800tZA0OOtOtO,0f Z4000 tO»0,0/ 

ICHECK=0 

IEOF=Q 

NS  =  Q 

ISTAT=0 

II   =  0 

JJJ=  0 

FFF  =  0 

1  F0RMAT(I5) 
WRITE(3fl2) 

12     FORMATC    IF   YOU   WISH  OLD   HEADING*    PRESS   i  RETURN 

t  /•  ....NEW  HEADING,   ENTER   1   :') 

1=0 

REAn(5,  1)1 
IF(I.EQ.O)GO   TO  13 
WRITE(3,8) 

8  FCRHATC   ENTER   DATA  HEADING   (UP   TO  80  CHARACTERS)  :*) 

REA0(5,9)  A 

I  3     HRI TE(2  ,9)  A 

9  F0RMAT(20A4) 
WRITE(3t2) 

2  FORMATC   ENTER    THE  NO.   OF   SAMPLES    (    IN  THOUSANDS    )  :») 

READ(5,*)  ANN 

NNN=ANN«lQOO 
QSAMP=NNN 

IF(NNN.LE.O)RETURN 
■  C  WRITE(3,3) 

C      3      FORMATC    ENTER    THE   NO.   OF   CHANNELS  :') 

C  REAn(5,*)  INUM 

C   PREVIOUS   3   CARDS    REPLACED   BY  NEXT  ONE: 

INUM=l 
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INUMX=INUM+l 

I  P=(  32/INUM)*INUM*<t 
rHr=IPf2 

II  =  0 

C  WRITE(3t5) 

C     5     FGRMATC    ENTEH   SEC.    FOR  DELAY-   100   =    1    SEC.  :•) 

C  READ(5»*)  JJJ 

C   PREVIOUS   3   CARDS   REPLACED   DY  NEXT  ONE: 

JJJ=1 

MINU=Il 

NS6C=JJJ 
C  WRITE(3,6) 

C     6     FORHATC    ENTER   CHANNEL  LIST   TO   BE   SAMPLED   (16    INTEGER  VALUES) 

C  REA0(5»n:)    (  I  rAnLE(J)  t  J=l»  INUM) 

C   PREVIOUS   3   CARDS   REPLACED   BY  NEXT  TWU: 

I TARLEC l)=7 

ITAELE{2)  =  I'» 

WRITE(3tll) 

II  FORHATC  WAIT  ...(  ENTER  "F"  TO  STOP  COLLECTING  DATA  )  •) 
C  THE   FOLLOWING   SETS   A   TERMINATION  READ  FOR  SAMPLING. 

INLINE 

LDItZ  UFTTTY 
LDItB  40000 
LDItl<t  ICHECK 
LDI t 15  2 
REX,«32 
F  INI 
IA  =  0 

CALL   MTCMOD(NAMEf STATUS) 
CALL   P  lOINKNAME  .STATUS) 
CALL  TIHER(TIME(l)) 
DO   40  JKL=    1 tNNN 
DO    10    II    =  l»16 
10  IVALU(II)=0 

CALL   SCANKNAMEtSTATUS.IVALUr  I  T  AbLE  ,  I  NUMX  ,  FFF  ) 

DO   20    1=1, INUM 

IA=IA+l 

I VOLT( IA)=IVALU( I ) 
20  CONTINUE 

C  THE   FOLLOWING   SETS   THE   TIME   DELAY   t3ETWEEN  SAMPLES. 

INL INE 
LDI  »8  tfl't 
LDMtU  II 
OURt  1<»,0 
LDM,15  JJJ 
REX, 032 
NOP 
FINI 
30  CONTINUE 
LP=  IP 

I F( JKL.EU.NNN)  LP=IA 

IF( IA-(IA/LP)*LP.NE.O)   GO   TO  40 

NS=JKL 

IC  =  0 

IFCIA.GT.IP)  IC=IP 
C  THE   FOLLOWING   OCES   A   GUICK   RETURN  WRITE   OF   DATA    TO  OUT. 

C  AT    THIS   POINT    THE   DATA   ARE    IN  MULTIPLES   OF    5  MILIVOLTS. 

INLINE 

LDI, 2  UFTOUT 
LDI, 14  IVOLT 
ADM, 14  IC 
LDI, 15  lUT 
LDI  ,n  #8001 
REX  ,«32 
FINI 
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IF(  ICHECK.NE.O)   GO   TO  1 

IF(  lA.EU. I OT )    IA  =  0 
^0  CONTINUE 
41     CALL  TIMER(TIME(2)) 

T  IME( l)  =  TIME( 1 ) 

TIME(2)=TIM6(2) 

WRITE(3.'»5)  TIMP(1),TIME(2) 
45      FGRMATC    INITIAL    TIME:    '.FZO.S,';    FINAL  TIME*tF20.5) 

TIM£{l)=TIME(2)-TIME(l) 

DO   47  ^J  =  3»6t3 

47  WRITE(Jt48)  TIHE(l) 

48  FGRMAT(/'    ELAPSED   TIME't   F20.5,*  SECONDS') 

C  THE   FOLLOWING   WRITES   END  OF  FILE   AND   REWINDS   FILE  OUT. 

INLINE 

LDIf2  UFTOUT 
L0If8  />0007 
REX,<;32 
LDI.O  «0002 
REXt«32 
FINI 

IF(NNN.GT.NS)  NNN=NS 

WRITE(3f53)  NNN 

QSAMP=NNN 

NNN=NNN*INUM 

NNO=NNN 

IP4=lP/4 

I P4U=IP4 

52  CONTINUE 

53  FORMATC      NO.    OF    SAMPLES   ='.r7/lOX»'W  A    I    T   ») 

C  THE    FOLLOWING   READS    FILE  "OUT". 

INLINE 

LDIt2  UFTOUT 
LDItB  COOOQ 
LDI,14    I  VOLT 
L0I»15  IDT 
REX»«32 
F  INI 

DO   59  1=1,4 
I4=( I-l )^IP4 
IF(NNN.LT. IP4  )  IP4=NNN 
00   57  J=1,IP4 
V0LT(J)=IV0LT(J+I4) 
VOLT(  J)=VULT(  J)=>.0003125 
IF(VULT(J).GT.CL2)CL2=VULT( J) 
IF(V0LT(J).LT.CL1)CL1=V0LT( J) 

57  CONTINUE 

WRIIE(2,50)    ( VOLT(J) ,J=lt  IP4) 

NNN=NNN-IP4 

IF(NNN.Le.O)    GO    TO  60 

59  CONTINUE 
GO    TO  52 

58  FORMAT (32F3. 3) 

60  END   FILE  2 

C  THE    FOLLOWING   DELETE   ANY   READ   KEYED    TO    TRM   AND   REWIND   FILE  "OUT". 

INLINE 

LDI,2  UFTTTY 

LDI »R  tf9 

REX»«32 

LDI,2  UFTOUT 

LDItO  »0002 

REX,«32 

FINI 

RETURN 

END 
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APPENDIX  B 

Operating  System's  Execution  Files 

B.l:    MODOMP's  T?rocedtire  using  Hewllet- Packard  plotter; 

$PRODEFAULT  VELMEAS 
$JOB 

$SFM  AUXl  A 
$SFM  AUX2  B 
$SFM  %1  C 
$SFM  AUX3  D 

$ASS  1  A  2  B  3  TO  5  TI  12  D  14  C 
$EXE  LAB  X 
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B.2:  IBM/VM-CMS*s  execution  file  using  Tektronix  plotters 


CCONTROL   ERROR   OFF  NOf'SG 
CLRSCRN 

<s       PLAB   EXEC      (    VERSION  BY   S.E.ADEFF    )   — >   LAST   UPDATING:    NOV/10/86  < — 
<=       EXEC  TO  DECLARE   ALL  GLOBAL   TXTLIBS  NEEDED.   AND  EXECUTE     THE  VELMEAS 
*       CALCOMP   PLOT   PROGRAM   TU   BE  PLOTTED   ON   TEKTRONIX  PLOTTER 

(PROGRAM  OBJECT  CODE  IS  LAR   TEXT  A) 
tSPACE 

tIF   .CI   NE   •   CIF   £1   NE   ?   tIF   ,LZ  NE  •    tIF   LZ  N£  ?   C60T0  -START 
C8EGTYPE 

USAGE:   <EXEC>  PLAB   CI  C2 


WHERE   CI    IS   THE   FILETYPE  OF   THE   FILE   "FNl'r"  CONTAINING 

THE   RESULTS  OF  STATISTICAL  ANALYSES  FOR  A  VELOCITY  PROFILE: 


FNl^   CI  A 


AND  C2  IS  THF  FILETYPF  OF  THE  FILE  "FNIZ"  CONTAINING 
THE   RESULTS   OF  COMPUTATIONS 


FNI2   C2  A 


CEND 

CeXIT  CRETCOOE 
-STAR  T 

^-'INPUT   FILES  DEFINITION 
FI    I      DISK   LAB   PI  Al 
FI   2      UISK   LAB   P2  Al 
FI   6  TERM 

FI  12  DISK  FN12  C2  Al 
F  I    14   DISK   FN14    CI  Al 


(LRECL   80   BLOCK   80  RECFM  F  PERM 

(LRECL   80   BLOCK   80  RECFM  F  PERM 

(LRECL   80   BLOCK   80  RECFM  F  PERM 

(LRECL   80   BLOCK  80  RECFM  F  PERM 

(LRECL   80   BLOCK   80  RECFM  F  PERM 


GLOBAL   TXTLIii   VLNKMLIB   CMSLIB  VFORTLIB  CALPREPL  UTIL  CALCOMP 

LOAD    LAB    (CLEAR  NOMAP 

CIF   CRETCODE  NE   0   CGOTO  -ERR2 

(.TYPE   =  =  =  =  =  =  ==   =  =  =  =  =  =  =  =   PLAB   EXEC.    =  =  =  =  =  =  =  =   =  =  =  =  =  =  =  = 

CTIME  RESET 
CTIME  TYPE 
START  * 
CTIME  TYPE 

CTYPE   ========   ========   END  OF   RUN  ========  ======== 

CEXIT 

-ERR2   CTYPE   ERROR   LOADING  PROGRAM 
CEXIT  CRETCODE 
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IBM's  execution  file  using  Versatec  plotter 


tCONTROL  OFF  NGMSG 
CLRSCRN 

*  VLAB  EXEC  (  VERSION  BY  S.E.ADEFF  )  — >  LAST  UPDATING:  N0V/in/a6  <— 
-       EXEC   TO  DECLARE   ALL  GLUUAL    TXTLI3S   NEEDEDi   AND   EXECUTE      THE  VELMEAS 

CALCOMP  PLOT   PROGRAM   TO   BE   PLOTTED  ON   VERSATEC  PLOTTER 

*  (PROGRAM  OBJECT  CODE    IS   LAB   TEXT  A> 
tSPACE 
LIF   .LI  NE 
tPEGTYPE 

USAGE:   <EXEC>  VLAB   H  t2 


tIF   CI  NE   ?   CIF   .t2  NE 


CIF   LZ  NE  ?   tGOTO  -START 


WHERE   CI    IS   THE   FILETYP^   OF   THE   FILE   "FNl^"  CONTAINING 

THE   RESULTS  OF   STATISTICAL   ANALYSES  FOR  A   VELOCITY  PROFILE 

FNl'i   CI  A 

AND   C2    IS   THE   FILETYPE   OF   THE  FILE   "FNIZ"  CONTAINING 
THE   RESULTS   OF  COMPUTATIONS 

FN12   C2  A 


CEND 

CeXIT  CRETCODE 
-START 

=:=INPUT   FILES  DEFINITION 
FI    I     DISK   LAB  PI  Al 
FI   2     DISK   LAB  P2  Al 
FI   6  TERM 

FI  12  DISK  FN12  C2  Al 
FI    1^  DISK   FNl^r   CI  Al 


(LRECL  80  BLOCK  80  RECFM  F  PERM 

(LRECL  80  BLOCK  80   RECFM  F  PERM 

(LRECL  80  BLOCK  80  RECFM  F  PERM 

(LRECL  80  BLOCK  80   RECFM  F  PERM 

(LRECL  80  BLOCK  80   RECFM  F  PERM 


CFN  =  LAB 

CFT   =  TEXT 

STATE   CFN   CFT  A 

CIF   CRETCODE   EO  0   CSKIP  2 

CTYPE  FILE:   CFN  CFT  A  NOT  FOUND  ^^-^ 

CEXIT  CRETCODE 
FILEOEF   PLOTPARM  DISK   PLOTPARM   DATA  *  (PERM) 
FILEDEF   PLOTLOG  DISK   PLOTLOGA  DATA   Ai*  (PERM) 
FILEDEF   VECTRl   DISK   VECTRl   DATA  A<»  (PERM) 

FILEDEF   VECTR2  DISK   VECTR2   DATA   A4    (PERMXTENT  65535   BLKSIZE  4092) 
GLOBAL   TXTLIB  VLNKMLIB  CMSLIB  VALTLIB   VFORTLIB  PLOTLIB 
CIF   CRETCODE   EO  0  CSKIP  2 

CTYPE   =5C:^:  MISSING  TXTLIBS 

CFXIT  CRETCODE 
CLRSCRN 

LOAD   CFN   (START  NOMAP   CLEAR  NOOUP 
FILEOEF  PLOTLOG  CLEAR 
FILEDEF  VECTRl  CLEAR 
FILEOEF  VECTR2  CLEAR 
FILEDEF   PLOTPARM  CLEAR 

FILEOEF  PLOTLOG  DISK   PLOTLOGQ  DATA  Ah 
FILEDEF   VECTRl  DISK   VECTRl   DATA  A'* 
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FILEOEF   veCTR2   DISK   VECTR2   DATA   A't    (XTENT  65535) 

CP  SP  PUN  RSCS 

CP   TAG  UEV   PUN  VERSAIEC 

-LlOO 

CeEGTYPE 

00  YOU   WANT   PLOT   OR   STOP?    ( PLO T ♦ <EN TeR> ) 

PLOT     -  SENDS   OUTPUT   DIRECTLY   TO   THE   PLOTTERt      THEN  ERASES 
ALL    VERSATEC   UORK  FILES  AND  THEN  EXITS. 
<EN1ER>   -   ERASES   ALL   VERSATEC   WORK  FILES   AND  AND   THEN  EXITS, 
CEND 

CREAD  VARS  CWHERE 

£IF    .tWHERE   EQ   -PLOT    CGOTO  -FIN 
£IF    .CWHERE   EQ    .    CGOTO  -L500 

CTYPE   INVALID   RESPONSE !  !v.! 

CTYPE 
CTYPE 

CGOTO  -LlOO 
CEXI  T 
-FIN 

CIF   .CwHERE   EU    .DISK   CGOTO  -L200 
CIF    .CWHERE   EU   -PLOT    CGOTO  -L300 
CGOTO  -LlOO 
-LZOO 

FILEOEF   RJERASTR   DISK   CFN  DATA   A'^    (RECFM   FB   BLKSIZE   80  LRECL  80) 

CGOTO  -L^OO 

-L300 

CTYPE    WAIT  FOR    THE   PROCESS    TO  FINISH. 

FILEDEF   RJERASTR   PUNCH   (RECFM  F3   BLKSIZE   80  LRECL  80) 

-L^OO 

VTPLOT 

CIF   .CWHERE   NE    -DISK   CGOTO  -L'tSO 
PUN   CFN  DATA 
CBEGT YPE 

DO  YOU  WANT  TO  ERASE  YOUR  OUTPUT  FILE  -  CFN  DATA  ?  (DEFAULT  =  YES) 
CEND 

CREAD  VARS  CANS 

CIF   .CANS   =   .YES    ERASE   CFN   DATA  A 
-L^50 

ERASE   PLOTLOGB   DATA  A4 
-L500 

ERASE   VECTRl    DATA  A'l 
ERASE   VECTR2   DATA  A'l 
ERASE   PLOTLOGA   DATA  A't 
CP   SP   PUN  OFF 
CEXIT  CRETCOOE 
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APPENDIX  C 
Operator's  Form  used 


Experiment  No^ 


Date:! 


786 


Experlnenter: 


II.    Velocity  Profile  Heasureaents 


Discharge  and  Unlfon  Flow  Establishment 


A. 
B. 
C. 

D. 
E. 


G. 
H. 


I. 

NOTES: 


Bleed  discharge  water  manoraeter  and  lines  (1) 

Check  zero  of  discharge  laanometer   (1) 

Start  Pump.     Date:]       /      /86  |  time  (  |  (1) 


Set  water  to  desired  nominal  depth 
Adjust  punp  to  desired  nominal 

Adjust  flume  slope  until  -  A^, 

Enter  final  values  obtnlned: 
Flume: 


Inchef 


(2) 


"ch 
Lch 

^h 


f  >( 

ft 

u 

ft 

^w 

ft 

w 

ft 


Enter  counter  register  | 
Compute  slope    S^h  -  *ch/ZO. 
Sch  -I  I 


Sv  - 


Read  depth    yt  "  [I 


Inches"! 


Inches! 


Read  discharge  manoneter: 

H  +  L  - 
Compute  Q  -  0.17945       A  H 


In. 

in. 

In. 

in, 


ft3/8cc| 


Read  water  temperature:  [_ 


(1)  If  pump  Is  off 

(2)  Use  auxllary  paper  form 

(Allow  for  oscillations  to  disappear) 


Gauge 

50 

49.8 
49.6 
49.4 
49.2 
49 

48.7 
48.5 
48.2 

48 

47.6 
47.3 
47 
46.6 
Hi  46.3 
M£  46 
45.6 
45.3 
45 

44.5 
44 

43.5 

43 

42.5 

42 
41 
40 


NOTES: 


Check  for  bubbles  and  eliminate  them 
Check  zero  and  span  on  velocity  meter 

zero  control  setting 

Span  control  setting 


Clear  probe  tip  of  trash  or  bubbles 
Measure  u(y)  using  the  gauge  for: 


(3) 


y(mm) 
1.55 
1.75 
1.95 

15 
35 
55 
85 
05 
35 
55 
95 
25 


4.55 
4.95 
5.25 
5.55 
5.95 
6.25 
6.55 
7.05 
7.55 


8.05 
8.55 
9.05 
9.55 
10.55 
11.55 


(4) 


Gauge 

y(mm) 

39 

12.55 

37 

14.55 

35 

16.55 

33 

18.55 

31 

20.55 

26 

25.55 

21 

30.55 

16 

35.55 

11 

40.55 

6 

45.55 

31 

50.55 

26 

55.55 

21 

60.55 

16 

65.55 

11 

70.55 

6 

75.55 

1 

80.55 

Mean 


I    Values  on  File  SEA 


Start  Read 
End  Read 


(3)  Enter  mean  after  "beep"  and  before 

(4)  Hove  probe  with  coapenaator 


■RETURN" 
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APPENDIX  D 


Data  for  vall-correctlon  procedure 

This  Appendix  contains  information  used  by  the  Program  VELMEAS  during  the 
wall-correction  procedure.  This  information  was  transcribed  from  the 
operator's  form  of  Appendix  C.  The  units  used  are  those  of  the  respective 
instrumental  employed  in  its  acquisition.  Equivalent  values  in  the 
International  System  of  Units  (SI)  are  to  be  found  in  table  3.1. 

The  following  notes  refer  to  observations  in  Table  succeeding. 

(1)  :  Original  smooth  bed  of  steel  sheet. 

(2)  :  Smoother  painted  steel  sheet 

(3)  :  Lost  measurements  because  damage  in  Analog- to-digital  signal  converter. 

(4)  :  Horizontal  velocity  profile  measurements.     The  position  y  is  given  in 

mm.   in  each  of  two  levels  corresponding  to  same  flow  conditions. 

(5)  :  Same  as  in  (4) 

(6)  :  Same  as  in  (4) 

(7)  :  Rough  bed  formed  by  laying  a  packed  layer  of  lead  balls. 

(8)  :  Lost  measurements  due  to  troubles  during  operation. 

(9)  :  These  are  part  of  a  same  profile.     Later  unified  in  file  sea6036. 

(10)  :  Conditions  in  the  upper  stilling  basin  too  rough  (  Discharge  too  high) . 

(11)  :  These  are  part  of  a  same  profile.     Later  unified  in  file  sea6067. 
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Stirvey  of  data  required  for  vall-correctlon  procedtire 


Experiment         Temperature    Depth     Dlsch.Hanom.      Slope  Observations 

number  T  y^-  AH  S 

(filename)  Celsius  D.      In.  Hg.ln. 


1 

to  9 

(1) 

(3) 

10 

to  12 

(2) 

(3) 

13 

(sea6001) 

22 

.0 

2 

05 

6 

35 

0. 

00115 

(2) 

(3) 

14 

(sea6002) 

21 

.0 

2 

34 

8 

20 

0. 

00105 

(2) 

(3) 

15 

(sea6003) 

27 

.0 

2 

28 

8 

10 

0. 

00125 

(2) 

(3) 

16 

(sea6004) 

28 

.0 

2 

51 

10 

00 

0. 

001025 

(2) 

(3) 

17 

(sea6005) 

28 

.2 

2 

45 

9 

95 

0. 

00115 

(2) 

• 

18 

(sea6006) 

27 

.5 

2 

49 

10 

05 

0. 

00110 

(2) 

19 

(sea6007) 

23 

.5 

2 

51 

12 

00 

0. 

00120 

(2) 

20 

(sea6008) 

24 

.5 

2 

49 

12 

05 

0. 

00140 

(2) 

21 

(sea6009) 

26 

.0 

2 

42 

7 

95 

0. 

00100 

(2) 

22 

(sea6022) 

26 

.8 

2 

39 

7 

99 

0. 

00105 

(2) 

23 

(sea6023) 

26 

.8 

2 

16 

5 

95 

0. 

00100 

(2) 

24 

(sea6024) 

26 

.6 

2 

14 

5 

97 

0. 

00110 

(2) 

25 

(sea6025) 

25 

.6 

2 

16 

4 

02 

0. 

00075 

(2) 

26 

(sea6026) 

26 

.2 

2 

14 

3 

97 

0. 

00075 

(2) 

27 

(sea6027) 

21 

.2 

2 

41 

8 

23 

0. 

00100 

(2) 

(4) 

y=12 

2 

28 

(sea6028) 

28 

.4 

2 

.40 

8 

25 

0. 

00100 

(2) 

(4) 

y=49 

0 

29 

(sea6029) 

27 

.4 

2 

.13 

3 

87 

0 

00085 

(2) 

(5) 

y=10 

82 

30 

(sea6030) 

25 

.7 

2 

.13 

3 

87 

0. 

00085 

(2) 

(5) 

y=43 

28 

Survey  of  data  required  for  vall-correctlon  procedure  (continued) 


Experiment 

number 
(filename) 


Temperature 
T 

Celsius  D. 


Depth 

yt 

in. 


Disch.Manom. 
AH 
Hg.in. 


Slope 
S 


Observations 


31  (sea6031)  26.2  2.29  12.02 

32  (sea6032)  21.8  2.29  12.00 

33  (sea6033)  28.9  2.49  5.40 

34  (sea6034)  30.0  2.49  5.50 

35  (sea6035)  30.75  2.53  5.65 

36  (sea6036)  25.25  2.485  2.00 

37  (sea6037)  25.25  2.485  2.00 

38  (sea6038)  29.5  2.48  2.00 

39  (sea6039)  30.0  2.48  4.00 

40  (sea6040)  30.0  2.47  4.00 

41  (sea6041)  29.0  2.52  8.00 

42  (sea6042)  29.95  2.54  8.00 

43  (sea6043)  28.0  2.515  8.00 

44  (sea6044)  29.4  2.515  8.00 

45  (sea6045)  29.75  2.505  10.00 

46  (sea6046)  29.9  2.495  10.00 

47  (sea6047)  28.95  2.505  12.00 

48  (sea6048)  30.0  2.505  12.00 

49  (sea6049)  30.1  2.55  14.00 

50  (sea6050)  30.95  2.555  14.00 


0.00155 
0.00175 
0.00165 
0.00165 
0.00150 
0.00045 
0.00045 
0.00045 
0.00100 
0.00110 

7 

0.00210 
0.00205 
0.00205 
0.00260 
0.00250 
0.00295 
0.00300 
0.00335 
0.00330 


(2)   (6)  y=11.63 

(2)   (6)  y=46.53 

(7)  (8) 

(7) 

(7) 

(7)  (9) 
(7)  (9) 
(7) 
(7) 
(7) 

(7)  (8) 

(7)  (8) 

(7) 

(7) 

(7) 

(7) 

(7) 

(7) 

(7) 

(7) 
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Survey  of  data  required  for  vall-correctlon  procedure  (continued) 


Experiment         Temperature    Depth      Disch.Manom.      Slope  Observations 

number  T  AH  S 

(filename)  Celsius  D.       in.  Hg.in. 


51 

(sea6051) 

30 

05 

2 

545 

16 

.00 

0 

003775 

(7) 

(10) 

52 

(sea6052) 

31 

0 

2 

545 

16 

.00 

0 

003775 

(7) 

(10) 

53 

(sea6053) 

29 

9 

2 

48 

2 

.00 

0 

00050 

(7) 

54 

(sea6054) 

29 

9 

2 

51 

2 

00 

0 

000475 

(7) 

55 

(sea6055) 

30 

2 

2 

51 

4 

00 

0 

00095 

(7) 

56 

(sea6056) 

30 

45 

2 

505 

4 

00 

0 

00095 

(7) 

57 

(sea6057) 

28 

5 

2 

51 

6 

00 

0 

001575 

(7) 

58 

(sea6058) 

31 

0 

2 

50 

6 

00 

0 

00160 

(7) 

59 

(sea6059) 

31 

0 

2 

51 

8 

00 

0 

002025 

(7) 

60 

(sea6060) 

31 

0 

2 

520 

8 

00 

0 

00200 

(7) 

(8) 

61 

(sea6061) 

30 

95 

2 

49 

8 

00 

0 

00205 

(7) 

62 

(sea6062) 

29 

6 

2 

48 

10 

00 

0 

00265 

(7) 

(8) 

63 

(sea6063) 

30 

1 

2 

485 

10 

00 

0 

002575 

(7) 

64 

(sea6064) 

29 

0 

2 

51 

12 

00 

0 

00295 

(7) 

65 

(sea6065) 

30 

55 

2 

505 

12 

00 

0 

00300 

(7) 

66 

(sea6066) 

31 

0 

2 

495 

14 

00 

0 

00335 

(7) 

67 

(sea6067) 

30 

55 

2 

51 

14 

00 

0 

003375 

(7) 

(11) 

68 

(sea6068) 

30 

55 

2 

51 

14 

00 

0 

003375 

(7) 

(11) 

69 

(sea6069) 

30 

75 

2 

53 

16 

00 

0 

00380 

(7) 

70 

(sea6070) 

29 

25 

2 

53 

16 

00 

0 

00385 

(7) 
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